time = as.POSIXct((i-1)*60*60*24+15*60*(1:96), origin="2007-01-01", tz="GMT")
exo = runif(4)
exo_hat = runif(4)
- data$append(time=time, value=serie, exo=exo, exo_hat=exo_hat)
+ data$append(time=time, value=serie, level_hat=cumsum(serie),
+ exo=exo, exo_hat=exo_hat)
}
data
}