Nothing
RowSums <- function(x, ...) UseMethod("RowSums")
RowMeans <- function(x, ...) UseMethod("RowMeans")
RowSums.tis <- function(x, ...) tis(rowSums( stripTis(x), ...), start = start(x))
RowMeans.tis <- function(x, ...) tis(rowMeans(stripTis(x), ...), start = start(x))
RowSums.default <- function(x, ...) rowSums( x, ...)
RowMeans.default <- function(x, ...) rowMeans(x, ...)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.