x <- slot(GreHSize, 'data')[ ,3:5]
ar<-area(GreHSize)
distc<- distcenter(GreHSize, center = 19)
foldername <- system.file('extdata', package = 'OasisR')
shapename <- 'GreHSize'
ACE(x, a = ar, dc=distc)
ACE(x, spatobj = GreHSize, center = 19)
ACE(x, folder = foldername, shape = shapename, center = 19)
Run the code above in your browser using DataLab