Nothing
alr.all <- function(x) {
y1 <- Rfast::Log(x)
d <- dim(x)[2]
y <- y1[, -1] - y1[, 1]
for (i in 2:d) y <- cbind(y, y1[, -c(1:i)] - y1[, i])
y
}
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.