# NOT RUN {
   X <- rpoislinetess(3)
   plot(rMosaicField(X, runif))
   plot(rMosaicField(X, runif, dimyx=256))
   plot(rMosaicField(X, rnorm, rgenargs=list(mean=10, sd=2)))
   plot(rMosaicField(dirichlet(runifpoint(30)), rnorm))
# }
Run the code above in your browser using DataLab