Nothing
make.membership.queue <- function(moduleIDs, pigengene, modules){
qu <- c()
for(m1 in moduleIDs){
qu <- c(qu, get.sorted.members(m1, pigengene, modules=modules ))}
return(qu[order(rank(abs(qu)))])
}
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.