# NOT RUN {
x <- segdata@data[ ,1:2]
contiguity <- contig(segdata)
diag(contiguity) <- 1
ar<-area(segdata)
dist <- distance(segdata)
dist <- exp(-dist)
diag(dist)<-sqrt(ar) * 0.6
foldername <- system.file('extdata', package = 'OasisR')
shapename <- 'segdata'
ACL(x, c = contiguity)
ACL(x, spatobj = segdata)
ACL(x, spatmat = 'd', folder = foldername, shape = shapename)
ACL(x, spatobj = segdata, spatmat = 'd', diagval = 'a')
ACL(x, c = dist, spatmat = 'd')
# }
Run the code above in your browser using DataLab