x <- slot(GreHSize, 'data')[ ,3:5]
contiguity <- contig(GreHSize)
foldername <- system.file('extdata', package = 'OasisR')
shapename <- 'GreHSize'
ACL(x, c=contiguity)
ACL(x, spatobj = GreHSize)
ACL(x, folder = foldername, shape = shapename)
Run the code above in your browser using DataLab