Predict in r language

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.


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??