Nothing
countcon <-
function(network){
unet = unlist(strsplit(network,' '))
ncon = sort(table(c(unet)), decr=TRUE) ## number of connections for each gene, sorted
genes = names(ncon) #unique names
return(list(genes=genes,ncon=ncon))
}
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.