powered by
get.Pcent(theMap)
x <- read.shape(system.file("shapes/sids.shp", package="maptools")[1]) get.Pcent(x)
Run the code above in your browser using DataLab