R/polysph.area.Wr.R

In baddstats/spherstat: Spatial Point Pattern Analysis, Geometry and Trigonometry for the Sphere

Defines functions polysph.area.Wr

Documented in polysph.area.Wr

polysph.area.Wr <- function(method="grid", ...) {
	stopifnot(method=="integral" || method=="grid" || method=="exact")
	areaWr <- switch(method,
  		"grid"={polysph.area.Wr.grid(...)},
		"integral"= {polysph.area.Wr.int(...)},
		"exact"={polysph.area.Wr.exact(...)}
		)
	areaWr
}