R help es - Jan 2016 - pregunta ls para ts

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

Hola,

Mira esto:

http://stackoverflow.com/questions/28538822/forecasting-timeseries-with-tslm-in-r

Saludos,
Carlos Ortega
www.qualityexcellence.es

El 10 de enero de 2016, 1:48, jbetancourt <jbetancourt en
iscmc.cmw.sld.cu>
escribió:
>
> 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]]
>
>
> _______________________________________________
> R-help-es mailing list
> R-help-es en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>


-- 
Saludos,
Carlos Ortega
www.qualityexcellence.es

	[[alternative HTML version deleted]]