R/meanByRow.R

Defines functions meanByRow

meanByRow <- function(..., na.rm ) {
  data <- as.matrix(cbind(...))
  out <- matrixStats::rowMeans(data, na.rm = na.rm)
  out[out==-Inf] <- NA
  return(out)
}
jon-mellon/mellonMisc documentation built on July 4, 2022, 9:51 a.m.