Nothing
repmat = function (A, m, n = m)
{
A <- as.matrix(A)
tmp <- matrix(rep(t(A), m), nrow = m * nrow(A), byrow = TRUE)
return(matrix(rep(tmp, n), ncol = n * ncol(tmp)))
}
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.