# NOT RUN {
if(require(spatstat.core)) {
plot(demohyper, quote({ plot(Image, main=""); plot(Points, add=TRUE) }),
parargs=list(mar=rep(1,4)))
mppm(Points ~ Group/Image, data=demohyper)
}
# }
Run the code above in your browser using DataLab