library("odeGUTS")
data(fit_odeGUTS)
data_4prediction <- data.frame(time = 1:10,
conc = c(0,5,30,30,0,0,5,30,15,0),
replicate= rep("predict", 10))
predict_out <- predict_ode(object = fit_odeGUTS, data_predict = data_4prediction,
mcmc_size = 200, spaghetti = FALSE)
Run the code above in your browser using DataLab