Nothing
`row.matches` <-
function(y, X)
{
i <- seq(nrow(X))
j <- 0
while(length(i) && (j <- j + 1) <= ncol(X))
{
i <- i[X[i, j] == y[j]];
}
return(i);
}
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.