if(FALSE) {
data(residualspaper)
if(require(spatstat.model)) {
X <- residualspaper$Fig4a
summary(X)
plot(X)
# reproduce all Figures
residualspaper$plotfig()
# reproduce Figures 1 to 10
residualspaper$plotfig(1:10)
# reproduce Figure 7 (a)
residualspaper$plotfig("7a")
}
}
Run the code above in your browser using DataLab