Defines functions disprop

Documented in disprop

disprop <-
function(z) {
if (!inherits(z, "hotspots"))
	stop("use only with \"hotspots\" objects")
dp <- list(positive = (z$x-median(z$data))/
	(z$positive.cut - median(z$data)),
negative = (z$x-median(z$data))/
	(z$negative.cut - median(z$data)))
if (z$tail == "positive") dp$negative <- NULL
if (z$tail == "negative") dp$positive <- NULL

Try the hotspots package in your browser

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

hotspots documentation built on May 1, 2019, 8:19 p.m.