Nothing

```
"mkSmall" <-
function(lst, thin = 10) {
indX <- seq(1, length(lst$x), by = thin)
indY <- seq(1, length(lst$y), by = thin)
if (length(dim(lst$z)) < 3)
list(x = lst$x[indX], y = lst$y[indY], z = lst$z[indX, indY])
else
list(x = lst$x[indX], y = lst$y[indY], z = lst$z[indX, indY, ])
}
```

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