R/indpower.R

In vegsoup: Classes and Methods for Phytosociology

#	congruence between indicator and target species.
#	Halme's indicator power
#	to do: documentation
#if (!isGeneric("Indpower")) {			
setGeneric("Indpower",
	function (obj, ...)
		standardGeneric("Indpower")
)
#}
setMethod("Indpower",
	signature(obj = "Vegsoup"),
	function (obj, type, ...) {
		res <- indpower(as.logical(obj), ...)
		diag(res)  <- NA
		if (type == 0)
			res <- rowMeans(res, na.rm = TRUE)
		return(res)		
	}
)