Nothing
is.downset <-
function(z, Q=1) {
if(is.numeric(Q)) {
v <- 1:nrow(z)
Q <- v %in% Q
}
if(is.character(Q))
Q <- rownames(z) %in% Q
all(Q == downset(z, Q))
}
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.