<div><font color="#000066" face="verdana, sans-serif"><i>Hola a todos, estoy intentado hacer una primera diferencia en una serie temporal.</i></font></div><div><font color="#000066" face="verdana, sans-serif"><i><br></i></font></div>

<div><font color="#000066" face="verdana, sans-serif"><i>Me da error. Os paso el código con los errores y el dato.</i></font></div><div><font color="#000066" face="verdana, sans-serif"><i><br></i></font></div><div><font color="#000066" face="verdana, sans-serif"><i>Uso R 14 con Rstudio en windows7-64 bits.</i></font></div>

<div><font color="#000066" face="verdana, sans-serif"><i><br></i></font></div><div><span class="Apple-style-span" style="border-collapse:separate;font-family:Arial;font-size:medium"><span class="Apple-style-span" style="font-family:'Lucida Console';font-size:13px;line-height:17px;text-align:-webkit-left;white-space:pre-wrap"><pre tabindex="0" class="GD40030CLR" style="font-family:'Lucida Console';font-size:10pt!important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;white-space:pre-wrap!important;margin-top:0px;margin-bottom:0px;line-height:1.3">

<span class="GD40030COR ace_keyword" style="white-space:pre;color:blue">> </span><span class="GD40030CCR ace_keyword" style="color:blue">ejemplo_agregado$total_dif<- diff(ejemplo_agregado$Total)
</span><span class="GD40030CGR">Error en `$<-.data.frame`(`*tmp*`, "total_dif", value = c(-0.03881, -0.0314286960000001,  : 
  replacement has 155 rows, data has 156
</span><span class="GD40030COR ace_keyword" style="white-space:pre;color:blue">> </span><span class="GD40030CCR ace_keyword" style="color:blue">
</span><span class="GD40030COR ace_keyword" style="white-space:pre;color:blue">> </span><span class="GD40030CCR ace_keyword" style="color:blue">ejemplo_agregado$total_dif<- diff(ejemplo_agregado$Total, lag=1, differences=1)
</span><span class="GD40030CGR">Error en `$<-.data.frame`(`*tmp*`, "total_dif", value = c(-0.03881, -0.0314286960000001,  : 
  replacement has 155 rows, data has 156
</span><span class="GD40030CGR">Error in if (eval(parse(text = paste("nrow(", dsnameValue, ")"))) == 0) { : 
  argumento tiene longitud cero</span></pre></span></span></div><br>
<div><br></div><div>Muchas gracias y saludos,</div><div><br></div><div>Otto</div>