ind.list=function (lista, ind)
{
len <- length(lista)
for (i in 1:len) lista[[i]] <- lista[[i]][ind, , drop = FALSE]
lista
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.