R/computeArea.r

Defines functions `computeArea`

#return a list of areas
`computeArea`<-function(sp){
	lapply(sp@polygons, function(x) sum(sapply(x@Polygons, function(y) y@area * ifelse(y@hole, 0, 1))))
}

Try the diseasemapping package in your browser

Any scripts or data that you put into this service are public.

diseasemapping documentation built on Sept. 22, 2023, 1:07 a.m.