if(interactive()) {
lambda <- 3
d <- 256
n <- 30
} else {
lambda <- 1
d <- 32
n <- 5
}
X <- rpoislinetess(lambda)
plot(rMosaicField(X, runif, dimyx=d))
plot(rMosaicField(X, rnorm, rgenargs=list(mean=10, sd=2), dimyx=d))
Y <- dirichlet(runifpoint(n))
plot(rMosaicField(Y, rnorm, dimyx=d))
Run the code above in your browser using DataLab