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.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.