example(nc.sids)
EBImoran.mc(nc.sids$SID74, nc.sids$BIR74,
nb2listw(ncCC89_nb, style="B", zero.policy=TRUE), nsim=999, zero.policy=TRUE)
sids.p <- nc.sids$SID74 / nc.sids$BIR74
moran.mc(sids.p, nb2listw(ncCC89_nb, style="B", zero.policy=TRUE),
nsim=999, zero.policy=TRUE)
Run the code above in your browser using DataLab