# NOT RUN {
# Estimates from the heather data in spatstat
xi_owin <- heather$coarse
xi_owin_obswin <- Frame(heather$coarse)
# Convert binary map to an im object (optional)
xi <- as.im(xi_owin, value = TRUE, na.replace = FALSE)
# Estimate coverage probability, covariance, GBL, and disc-state contagion
cphat <- coverageprob(xi)
cvchat <- racscovariance(xi, estimator = "pickaH")
# }
# NOT RUN {
gblhat <- gbl(xi, seq(0.1, 5, by = 1), estimators = "GBLcc.pickaH")
contagds <- contagdiscstate(Hest(xi), Hest(!xi), p = cphat)
# }
# NOT RUN {
# Simulate a Boolean model with grains that are discs of fixed radius:
# }
# NOT RUN {
xi_sim <- rbdd(10, 0.1, owin())
# }
Run the code above in your browser using DataLab