# NOT RUN {
data(dat,square,square_pop)
lg1 <- lgcp(data=dat,
pop.var = c("popdens"),
boundary=square,
covariates=square_pop,
cellwidth=0.1,
laglength = 7,
mala.pars=c(200,100,1),
nchains=2)
plot_hotspot_data(lg1,
covariates = square_pop,
threshold.var = c("poppp+obs+latent"),
threshold.value = 1,
threshold.prob=0.8,
labels=c('low','high incidence'))
# }
Run the code above in your browser using DataLab