Nothing
getShortestPaths <-
function (Network,SelectedGenes=0)
{
optionValue<-getOption("stringsAsFactors")
options(stringsAsFactors=F)
if (SelectedGenes==0)
{
SelectedGenes<-rownames(Network$DEGenes)
}
CombinedScores<-Network$Edges[which(Network$Edges$Interaction=="combined_score"),c("node1","node2","Score")]
BetweenNodesDistances=convertToDistGraph(CombinedScores)
ShortPathsNetwork=findShortestPathways(BetweenNodesDistances,SelectedGenes)
FinalNetwork<-ShortPathSTRINGNet(ShortPathsNetwork,Network$DEGenes,Network$Annotations)
options(stringsAsFactors=optionValue)
return(FinalNetwork)
}
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.