- private$.tv[[L]]$time = c(private$.tv[[L]]$time, time)
- private$.tv[[L]]$serie = c(private$.tv[[L]]$serie, value)
+ 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)