# NOT RUN {
simulation.obj <- generate.data.maillard(target=1,
env=rep(1:5, 3),
L=15)
D <- simulation.obj$simulated.data
fulldata <- simulation.obj$simulated.model
time <- simulation.obj$time
plot(fulldata[[1]][,1], fulldata[[1]][,2], type= "l", lty=2,
xlab="time", ylab="concentration")
points(time, D[1,1:length(time)], col="red", pch=19)
legend("topright", c("true trajectory", "observations"),
col=c("black", "red"), lty=c(2, NA), pch=c(NA, 19))
# }
Run the code above in your browser using DataLab