# NOT RUN {
data(countyExample)
nc <- county[county@data[,"STATE"] == 37, ]
psi <- matrix(data = rbinom(n = 1000, size = 1, prob = 0.5),
nrow = 100L, ncol = 10L)
MIpriorInv(psi = psi, dB = nc)
# }
Run the code above in your browser using DataLab