# NOT RUN {
simulation.obj <- generate.data.targetmodel(env=rep(1:5, 3),
L=15,
d=5)
D <- simulation.obj$simulated.data
fulldata <- simulation.obj$simulated.model
time <- simulation.obj$time
plot(time, D[1,1:length(time)], col="red", pch=19)
legend("topright", c("observations"),
col=c("red"), pch=c(19))
# }
Run the code above in your browser using DataLab