x <- slot(AnnHAge, 'data')[ ,3:5]
bound <- boundaries(AnnHAge)
per <- perimeter(AnnHAge)
ar <- area(AnnHAge)
foldername <- system.file('extdata', package = 'OasisR')
shapename <- 'AnnHAge'
Wong(x, b = bound, p = per, a = ar)
Wong(x, spatobj = AnnHAge)
Wong(x, folder = foldername, shape = shapename)
Run the code above in your browser using DataLab