R/geoMean.R

Defines functions geoMean

#####	Function geoMean	#####
#####	compute geometric mean from matrix of variables	#####

geoMean <- function(x){
	X <- x
	G <- exp(rowMeans(log(X),na.rm=T))
	names(G) <- row.names(X)
	return(G)
}
manabusakamoto/evoldiver documentation built on March 9, 2024, 9:56 a.m.