Nothing
rowPcts <- function (x, ...)
{
rSx <- rowSums(x, ...)
result <- x/(rSx/100)
Zero <- rSx == 0
result[Zero,] <- 0
structure(result, Sums = rSx)
}
colPcts <- function(x, ...)
t(rowPcts(t(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.