Nothing
head.dist.matrix <- function (x, n=6L, k=n, ...) {
n <- min(n, nrow(x))
k <- min(k, ncol(x))
x[1:n, 1:k]
}
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.