psum <- function(..., na.rm=FALSE) { x <- list(...) rowSums(matrix(unlist(x), ncol=length(x)), na.rm=na.rm) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.