# NOT RUN {
## let's simply draw 3 times from St(10,5)
dat3 = st.runif(3, 10, 5, rtype="array")
## visualize
opar <- par(no.readonly=TRUE)
par(mfrow=c(1,3))
image(dat3[,,1], main="sample 1")
image(dat3[,,2], main="sample 2")
image(dat3[,,3], main="sample 3")
par(opar)
# }
Run the code above in your browser using DataLab