Array
(
)

R language, predict

Return
   - 23 set 2014

Boa noite,
Preciso fazer a análise de uma dada base de dados na linguagem R.
Importei os dado da tabela para a variavel regressao conforme abaixo, depois fiz a regresaõ linear usando a função lm e obtive o grafico abaixo: porém agora preciso fazer a predição dos próximos 12 meses, e estou tendo muita dificuldade.

#Código



regressao<- read.table ("brasil.txt", header=TRUE)

regressao 
library(ISwR) 
attach(regressao) 
lm(BR~DATA) 
plot(DATA,BR) 
abline(BR~DATA) 
plot(DATA,BR) 
summary(lm(BR~DATA)) 
plot(DATA,BR) 
abline(BR,DATA) 
plot(DATA,BR) 
resultado <- lm(BR~DATA) 
resultado 
summary(resultado) 
summary.aov(resultado) 
plot(DATA,BR) 
abline(resultado)

plot(DATA,BR, type="o", col="blue") 
abline(resultado, type="o", pch=22, lty=2, col="red") Mensagens de aviso perdidas: In int_abline(a = a, b = b, h = h, v = v, untf = untf, ...) : graphical parameter "type" is obsolete legend(1, g_range[2], c("BR", "resultado"), cex=0.8, col=c("blue", "red"), pch=21:22, lty=1:2); 

predict(lm(BR~DATA)) 
new <- data.frame(BR = seq(-3, 3, 0.5)) 
predict(lm(BR~DATA), new, se.fit = TRUE) 




encontrei pouquissa informação na net sobre predição na linguagem R. Alguem tem conhecimento de causa e pode me ajudar??