# NOT RUN {
x <- y <- seq(33)
rfq <- fssi30(n=200, p=0.37)
image(x, y, rfq[,,17], cex.main=1,
main="Frequencies in the z=17 slice of isotropic (1,0)-clusters")
contour(x, y, rfq[,,17], levels=c(0.2,0.25,0.3), add=TRUE)
abline(h=17, lty=2); abline(v=17, lty=2)
# }
Run the code above in your browser using DataLab