{
time = c(time, ts_df[line,1])
serie = c(serie, ts_df[line,2])
- level_hat = c(level_hat, #in case of data file is incomplete...
+ level_hat = c(level_hat, #if data file is incomplete...
ifelse(ncol(ts_df) > 2, ts_df[line,3], mean(serie,na.rm=TRUE)))
line = line + 1
};