- repeat {
- {
- time = c(time, ts_df[line,1])
- serie = c(serie, ts_df[line,2])
- line = line + 1
- };
- if (line >= nb_lines + 1
- # NOTE: always second part of date/time, because it has been formatted
- || strsplit(as.character(ts_df[line-1,1])," ")[[1]][2] == predict_at)