sumByRow <- function(..., na.rm ) { data <- as.matrix(cbind(...)) out <- rowSums(data, na.rm = na.rm) out[out==Inf] <- NA return(out) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.