Nothing
s4dim <- function(x)
{
dim <- 1L
if(!is.null(dim(x))) {
if(ncol(x) == 10L)
dim <- 2L
if(ncol(x) == 11L)
dim <- 2L
if(ncol(x) == 16L)
dim <- 2L
}
return(dim)
}
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.