R/geomean.R

Defines functions geomean

Documented in geomean

geomean <- function(x,na.rm=c(FALSE,TRUE)){
    
    na.rm <- na.rm[1]
    gm <- exp(mean(log(x),na.rm=na.rm))
    return(gm)
    
}
trnnick/TStools documentation built on Oct. 30, 2018, 9:26 p.m.