> predictions <- na.omit(output$model_output[[1]])
Warning message:
In is.na(object) : is.na() applied to non-(list or vector) of type 'NULL'
> output
[[1]]
[[1]]$params
E tau tp nn
1 10 1 1 11
[[1]]$model_output
time obs pred pred_var
1 2 309.6 NaN NaN
2 3 312.7 NaN NaN
3 4 312.2 NaN NaN
4 5 316.1 NaN NaN
5 6 318.2 NaN NaN
6 7 317.8 NaN NaN
7 8 320.2 NaN NaN
8 9 324.2 NaN NaN