R/psum.R

psum <- function(..., na.rm=FALSE) { 
  x <- list(...)
  rowSums(matrix(unlist(x), ncol=length(x)), na.rm=na.rm)
}
petrbouchal/pbtools documentation built on May 25, 2019, 2:53 a.m.