R/areaPoly.R

areaPoly<-function(sp.object=NULL){
	### Check to make sure the object is sp-class
		if(class(sp.object)[1]!="SpatialPolygonsDataFrame")
			cat("Incompatible class!")
	area<-sapply(slot(sp.object, "polygons"), slot,"area")
	area
	}
zalmquist/UScensus2010 documentation built on May 4, 2019, 9:08 p.m.