## spatial binomial data
## Not run:
# data(malaria)
# D <- sp::spDists(cbind(malaria$x, malaria$y))/1000
# m <- gcmr(cbind(cases, size-cases) ~ netuse+I(green/100)+phc, data=malaria,
# marginal=binomial.marg, cormat=matern.cormat(D), options=gcmr.options(seed=987))
# prof <- profile(m, which = 2)
# prof
# ## End(Not run)
Run the code above in your browser using DataLab