if(interactive()) {
lambda <- 3
n <- 30
} else {
lambda <- 1
n <- 5
}
# Switzer's random set
X <- rpoislinetess(lambda)
plot(rMosaicSet(X, 0.5), col="green", border=NA)
# another example
Y <- dirichlet(runifpoint(n))
plot(rMosaicSet(Y, 0.4))
Run the code above in your browser using DataLab