## Not run:
# loc1 <- locGrid(1, 1, 10, 10)
# loc2 <- locCircle(0.72, 60)
# loc3 <- locSquad(0.38, 10)
# loc <- rbind(as.matrix(loc1) , loc2, loc3); plot(loc)
# dat <- simData(loc, cov.par = c(1, 0.2, 1))
# Y <- dat$data
# plotData(Y[1:nrow(loc1)], loc1,
# Y[(nrow(loc1)+1):(nrow(loc1)+nrow(loc2))], loc2,
# Y[(length(Y)-nrow(loc3)+1):length(Y)], loc3,
# xlab="x", ylab="y", pchs = c(1, 16, 15)
# )
# # plot boundaries
# data(TexasCounty_boundary)
# plotData(bdry = TexasCounty.boundary)
# # plot data with the boundary
# data(Rongelap)
# str(Rongelap)
# plotData(bdry = Rongelap$borders, Y = Rongelap$data, loc = Rongelap$coords)
# ## End(Not run)
Run the code above in your browser using DataLab