# NOT RUN {
# Switzer's random set
X <- rpoislinetess(3)
plot(rMosaicSet(X, 0.5), col="green", border=NA)
# another example
plot(rMosaicSet(dirichlet(runifpoint(30)), 0.4))
# }
Run the code above in your browser using DataCamp Workspace