if(require(spatstat.model)) {
fit <- ppm(cells, ~1, Strauss(0.1))
default.rmhcontrol(fit)
default.rmhcontrol(fit, w=square(2))
}
m <- rmhmodel(cif='strauss',
par=list(beta=100, gamma=0.5, r=0.1),
w=unit.square())
default.rmhcontrol(m)
default.rmhcontrol(m, w=square(2))
Run the code above in your browser using DataLab