## Not run:
# loc <- rbind(locCircle(0.3, 10),
# locCircle(0.6, 30),
# locCircle(1.0, 50)
# )
# dat <- simData(loc, cov.par = c(1, 0.1, 1))
# plotData(dat$data, loc)
# ## End(Not run)
Run the code above in your browser using DataLab