# NOT RUN {
x <- segdata@data[ ,1:2]
ar<-area(segdata)
distc<- distcenter(segdata, center = 45)
foldername <- system.file('extdata', package = 'OasisR')
shapename <- 'segdata'
ACE(x, a = ar, dc=distc)
ACE(x, spatobj = segdata, center = 45)
ACE(x, folder = foldername, shape = shapename, center = 45)
# }
Run the code above in your browser using DataLab