Muchas gracias!!



*
*



El 15 de enero de 2012 18:46, Jorge I Velez <jorgeivanvelez@gmail.com>escribió:

> Hola Otto,
>
> Gracias por el ejemplo y los datos.
>
> El error ocurre porque a utilizar la funcion diff(), la longitud del
> vector resultante es una menos que el vector de entrada. En otras palabras:
>
> > seq(10)
>  [1]  1  2  3  4  5  6  7  8  9 10
> > length(seq(10))
> [1] 10
> > diff(seq(10))
> [1] 1 1 1 1 1 1 1 1 1
> > length(diff(seq(10)))
> [1] 9
>
> Dependiendo del objetivo que tengas con tus datos, te sugeriria utilizar
>
> c(0, diff(ejemplo_agregado$Total))
>
>  o
>
> c(NA, diff(ejemplo_agregado$Total))
>
> En el primer caso _asumes_ que la diferencia entre el primer valor de tu
> serie el el valor inmediatamente anterior es cero; en el segundo, que esta
> diferencia es NA.
>
> Lo otro que podrias hacer es crear un vector
>
> y <- diff(ejemplo_agregado$Total)
>
> y trabajar con el sin necesidad de agregarlo a tus datos originales.
>
> Un saludo,
> Jorge.-
>
>
> 2012/1/15 Otto F. Wagner <>
>
>> *Hola a todos, estoy intentado hacer una primera diferencia en una serie
>> temporal.*
>> *
>> *
>> *Me da error. Os paso el código con los errores y el dato.*
>> *
>> *
>> *Uso R 14 con Rstudio en windows7-64 bits.*
>> *
>> *
>>
>> > ejemplo_agregado$total_dif<- diff(ejemplo_agregado$Total)Error en `$<-.data.frame`(`*tmp*`, "total_dif", value = c(-0.03881, -0.0314286960000001,  :
>>   replacement has 155 rows, data has 156> > ejemplo_agregado$total_dif<- diff(ejemplo_agregado$Total, lag=1, differences=1)Error en `$<-.data.frame`(`*tmp*`, "total_dif", value = c(-0.03881, -0.0314286960000001,  :
>>   replacement has 155 rows, data has 156Error in if (eval(parse(text = paste("nrow(", dsnameValue, ")"))) == 0) { :
>>   argumento tiene longitud cero
>>
>>
>>
>> Muchas gracias y saludos,
>>
>> Otto
>>
>> _______________________________________________
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>>
>

	[[alternative HTML version deleted]]

