[R-es] pregunta ls para ts

[jbetancourt]

Estimados
Logré mejorar la predicción con un r2 del 73%. 
 
A este script quisiera añadirle un comando que me permita ver los datos  que se pronostican al menos en las próximas 4 semanas y una evaluación del modelo, a través del error . Adjunto serie de casos semanales desde enero a noviembre. Apreciaría su ayuda.
saludos cordiales
Betancourt
##############################
 
rm(list=ls())
datos<-scan("data1.csv")
 
fit1<- lm (log10(datos)~time(datos)) # regress gtemp on time
 
x<-(log10(datos))
x
plot(x, type="l", ylab="dengue cases CR")
abline(fit1)
summary(fit1)
 

	[[alternative HTML version deleted]]