Nothing
## Creates a matrix/list of cell names
dbCats <- function(nloci, vector = FALSE) {
res <- outer(0:nloci, 0:nloci, function(i, j) paste(i, j, sep = "/"))
res[!up.tri(res)] <- NA
if (vector)
res <- t(res)[up.tri(res)]
res
}
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.