if(require(spatstat.geom)) {
plot(spruces)
# To reproduce Goulard et al. Figure 3
# (Goulard et al: "influence zone radius equals 5 * stem diameter")
# (help(plot.ppp) says: "size of symbol = diameter")
plot(spruces, maxsize=10*max(spruces$marks))
plot(unmark(spruces), add=TRUE)
}
Run the code above in your browser using DataLab