# Complete current cell
private$.tvp[[L]]$time <- c(private$.tvp[[L]]$time, time)
private$.tvp[[L]]$serie <- c(private$.tvp[[L]]$serie, value)
- private$.tvp[[L]]$level_hat <- c(private$.tvp[[L]]$levem_hat, level_hat)
+ private$.tvp[[L]]$level_hat <- c(private$.tvp[[L]]$level_hat, level_hat)
}
}
if (strftime( tail(private$.tvp[[length(private$.tvp)]]$time,1),