Nothing
create.sub.pathway <- function(super.pathway){
sub.pathway <- list()
grp <- sort(unique(super.pathway$Chr))
ngrp <- length(grp)
for(i in 1:ngrp){
sub.pathway[[i]] <- super.pathway[super.pathway$Chr == grp[i], ]
rownames(sub.pathway[[i]]) <- NULL
}
sub.pathway
}
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.