# NOT RUN {
x <- segdata@data[ ,1:2]
test <- MCTest (x, fun='ISMorrill', simtype = 'perm', spatobj = segdata)
MCPlot(test, cex.legend = 0.8)
MCPlot(dens = test$Distribution[1,], ind = test$Summary$ISMorrill[1],
pval = test$Summary$P.Value[1], indexname = test$Index, cex.legend = 0.8)
# }
Run the code above in your browser using DataLab