Nothing
gen.upset <-
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
if(!is.upset(z, Q)) stop(paste(toString(rownames(z)[Q]), "is not an upset"))
sub <- z[Q, Q]
class(sub) <- class(z)
Q[Q] <- minimal(sub)
return(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.