fastSumID <- function (x, group) { as.vector(x = rowsum.default(x, group, reorder = FALSE), mode = "numeric") }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.