x <- segdata@data[ ,1:2]
foldername <- system.file('extdata', package = 'OasisR')
shapename <- 'segdata'
ISMorrillK(x, spatobj = segdata, queen = FALSE, K = 3)
ISMorrillK(x, folder = foldername, shape = shapename, K = 4, f = 'rec')
Run the code above in your browser using DataLab