[R-es] RV: least square for time series

[Dr. José A. Betancourt Bethencourt]

De: Dr. José A. Betancourt Bethencourt [mailto:jbetancourt en iscmc.cmw.sld.cu]

Enviado el: sábado, 9 de enero de 2016 07:40
Para: 'r-help-es en r-project.org' <r-help-es en r-project.org>
Asunto: least square for time series

 

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)





--
Este mensaje le ha llegado mediante el servicio de correo electronico que ofrece Infomed para respaldar el cumplimiento de las misiones del Sistema Nacional de Salud. La persona que envia este correo asume el compromiso de usar el servicio a tales fines y cumplir con las regulaciones establecidas

Infomed: http://www.sld.cu/



------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20160109/21d1b99f/attachment.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: data1.csv
Type: application/vnd.ms-excel
Size: 71 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20160109/21d1b99f/attachment.xlb>