# NOT RUN {
plot(spruces)
# To reproduce Goulard et al. Figure 3
# (Goulard et al: "influence zone radius equals 5 * stem diameter")
# (spatstat help(plot.ppp): "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