# NOT RUN {
options(digits=4)
data(siskiyou)
x <- prabinit(prabmatrix=siskiyou, neighborhood=siskiyou.nb,
distance="none")
# Not run; this needs package spdep
# prab.sarestimate(x)
prab.sarestimate(x, sar=FALSE)
# }
Run the code above in your browser using DataLab