<div dir="ltr"><div class="gmail_default" style="font-family:tahoma,sans-serif">Hola.</div><div class="gmail_default" style="font-family:tahoma,sans-serif">Tengo un problema que no logro resolver, quizá por apurado...</div><div class="gmail_default" style="font-family:tahoma,sans-serif">Parto de estos datos (adjuntos):</div><div class="gmail_default"><div class="gmail_default"><font face="monospace, monospace"> Fecha Unidades</font></div><div class="gmail_default"><font face="monospace, monospace"> 1: 2011-01-15 125919</font></div><div class="gmail_default"><font face="monospace, monospace"> 2: 2011-02-15 120472</font></div><div class="gmail_default"><font face="monospace, monospace"> 3: 2011-03-15 128118</font></div><div class="gmail_default"><font face="monospace, monospace">..</font></div><div class="gmail_default"><font face="monospace, monospace">66: 2016-06-15 202038</font></div><div class="gmail_default"><font face="monospace, monospace">67: 2016-07-15 185107</font></div><div class="gmail_default"><font face="monospace, monospace"> Fecha Unidades</font></div></div><div><div class="gmail_default" style="font-family:tahoma,sans-serif">#Lo paso a xts</div><div class="gmail_default"><font face="monospace, monospace">library(xts)</font></div><div class="gmail_default"><font face="monospace, monospace">datos.ts <- xts(datos$Unidades, <a href="http://order.by">order.by</a>=as.Date(datos$Fecha)) #Como fecha</font></div><div class="gmail_default"><font face="monospace, monospace">colnames(datos.ts)<-"Unidades"</font></div><div class="gmail_default" style="font-family:tahoma,sans-serif">#Y Luego trato de hacer pronóstico para los próximos 5 meses:</div><div class="gmail_default"><font face="monospace, monospace">library(forecast)</font></div><div class="gmail_default"><font face="monospace, monospace">meanf(datos.ts, 5) #Por la media</font></div><div class="gmail_default"><font face="monospace, monospace"> Point Forecast Lo 80 Hi 80 Lo 95 Hi 95</font></div><div class="gmail_default"><font face="monospace, monospace">1 205345.8 141917.3 268774.3 107518.1 303173.6</font></div><div class="gmail_default"><font face="monospace, monospace">2 205345.8 141917.3 268774.3 107518.1 303173.6</font></div><div class="gmail_default"><font face="monospace, monospace">3 205345.8 141917.3 268774.3 107518.1 303173.6</font></div><div class="gmail_default"><font face="monospace, monospace">4 205345.8 141917.3 268774.3 107518.1 303173.6</font></div><div class="gmail_default"><font face="monospace, monospace">5 205345.8 141917.3 268774.3 107518.1 303173.6</font></div><div class="gmail_default" style="font-family:tahoma,sans-serif">#Y por otros dos métodos similares (y también simplones):</div><div class="gmail_default"><font face="monospace, monospace">snaive(datos.ts, 5) #Estacional</font></div><div class="gmail_default"><font face="monospace, monospace">rwf(datos.ts, 5, drift=T)</font></div><div class="gmail_default" style="font-family:tahoma,sans-serif">#Pero cuando intento graficar los resultados, no logro hacer funcionar el xlim tal que "estire" el eje x hasta diciembre de 2016.</div><div class="gmail_default"><div class="gmail_default"><font face="monospace, monospace">datos.plot <- plot(datos.ts, main="Unidades por mes del Seg(Tiras), (Ene, 2011->Jun, 2016)"</font></div><div class="gmail_default"><font face="monospace, monospace"> ,ylab="Cantidad de Unidades", xlab="Meses")# Anda, pero si incorporo algo así como: xlim=c(1, 72)) no...</font></div><div class="gmail_default"><font face="monospace, monospace"> lines(snaive(datos.ts, h=5)$mean, col=4)</font></div><div class="gmail_default"><font face="monospace, monospace"> lines(rwf(datos.ts, h=5)$mean, col=2)</font></div><div class="gmail_default"><font face="monospace, monospace"> lines(rwf(datos.ts, h=5, drift=T)$mean, col=3)</font></div><div class="gmail_default"><font face="monospace, monospace"> legend("topleft",lty=1, col=c(4,2,3),</font></div><div class="gmail_default"><font face="monospace, monospace"> legend=c("Season naiev method","Naive method","Drift method"))</font></div><div class="gmail_default" style="font-family:tahoma,sans-serif">#Y entonces las líneas que quiero proyectar no se ven :( y no puedo presentar los resultados claramente. ¿Por qué no entiende c=(1,67) ni (1,72)? </div></div><div class="gmail_default" style="font-family:tahoma,sans-serif"></div><div class="gmail_default" style="font-family:tahoma,sans-serif">#También me vendría muy bien expresar el objeto xts en meses, tal que:</div><div><font face="monospace, monospace"><div class="gmail_default" style="display:inline">datos</div>.ts <- xts(<div class="gmail_default" style="display:inline">datos</div>$Unidades, <a href="http://order.by">order.by</a>=as.yearmon(<div class="gmail_default" style="display:inline">datos</div>$Fecha)) #Como mes</font></div></div><div><div class="gmail_default" style="font-family:tahoma,sans-serif">#En ese caso, por la media funciona:</div><div class="gmail_default"><font face="monospace, monospace">meanf(datos.ts, 5) #Por la media</font></div><div class="gmail_default"><font face="monospace, monospace"> Point Forecast Lo 80 Hi 80 Lo 95 Hi 95</font></div><div class="gmail_default"><font face="monospace, monospace">1 205345.8 141917.3 268774.3 107518.1 303173.6</font></div><div class="gmail_default"><font face="monospace, monospace">2 205345.8 141917.3 268774.3 107518.1 303173.6</font></div><div class="gmail_default"><font face="monospace, monospace">3 205345.8 141917.3 268774.3 107518.1 303173.6</font></div><div class="gmail_default"><font face="monospace, monospace">4 205345.8 141917.3 268774.3 107518.1 303173.6</font></div><div class="gmail_default"><font face="monospace, monospace">5 205345.8 141917.3 268774.3 107518.1 303173.6</font></div><div class="gmail_default" style="font-family:tahoma,sans-serif">#Pero los otros métodos no...</div><div class="gmail_default"><font face="monospace, monospace">naive(datos.ts, 5) #Ultimo valor</font></div><div class="gmail_default"><font face="monospace, monospace">Error in .cbind.ts(list(e1, e2), c(deparse(substitute(e1))[1L], deparse(substitute(e2))[1L]), : </font></div><div class="gmail_default"><font face="monospace, monospace"> not all series have the same frequency</font></div><div class="gmail_default" style="font-family:tahoma,sans-serif">Y no veo por qué... Además, sospecho que sería más fácil para mi graficar, etc, utilizando los meses en lugar de la fecha. Aunque tampoco logro hacer funcionar el xlim en esta variante.</div><div class="gmail_default" style="font-family:tahoma,sans-serif">Muchas gracias por la ayuda,</div><div class="gmail_default" style="font-family:tahoma,sans-serif">Saludos</div></div>-- <br><div class="gmail_signature"><div dir="ltr"><font face="tahoma, sans-serif">Mauricio</font></div></div>
</div>