require(spatstat)
data(swedishpines)
X <- swedishpines
plot(X, main="Swedish Pines data")
fit <- mpl(X, ~1, Strauss(r=7), rbord=7)
Xsim <- rmh(fit, start=list(n.start=X$n), control=list(nrep=1e3))
plot(Xsim, main="simulation from fitted Strauss model")
fit <- mpl(X, ~1, StraussHard(r=7,hc=2), rbord=7)
Xsim <- rmh(fit, start=list(n.start=X$n), control=list(nrep=1e3))
plot(Xsim, main="simulation from fitted Strauss hard core model")
fit <- mpl(X, ~1, Geyer(r=7,sat=2), rbord=7)
Xsim <- rmh(fit, start=list(n.start=X$n), control=list(nrep=1e3))
plot(Xsim, main="simulation from fitted Geyer model")
fit <- mpl(X, ~1, Softcore(kappa=0.1))
Xsim <- rmh(fit, start=list(n.start=X$n), control=list(nrep=1e3))
plot(Xsim, main="simulation from fitted Soft Core model")
Run the code above in your browser using DataLab