Nothing
print.ShortPathSTRINGNet <-
function(x, nlimit=20, ...)
{
cat("Object of class ShortPathSTRINGNet (package stringgaussnet)\n\n")
AllNodes <- unique(c(x$Edges$node1,x$Edges$node2))
InitNodes <- rownames(x$DEGenes)
AddedNodes <- AllNodes[which(!(AllNodes %in% InitNodes))]
Intermediates <- unique(strsplit(paste(x$Edges$Intermediates[which(x$Edges$Intermediates!="")],collapse=","),",")[[1]])
cat("Total number of nodes:",length(AllNodes),"\n")
cat("Number of initial nodes:",length(InitNodes),"\n")
cat("Number of added nodes:",length(AddedNodes),"\n")
cat("Number of intermediate nodes:",length(Intermediates),"\n")
AllInteractions <- unique(paste(x$Edges$node1,x$Edges$node2,sep="."))
InitInteractions <- unique(paste(x$Edges$node1,x$Edges$node2,sep=".")[which(x$Edges$node1 %in% InitNodes & x$Edges$node2 %in% InitNodes)])
AddedInteractions <- AllInteractions[which(!(AllInteractions %in% InitInteractions))]
cat("Total number of interactions:",length(AllInteractions),"\n")
cat("Number of interactions between initial nodes:",length(InitInteractions),"\n")
cat("Number of interactions with added nodes:",length(AddedInteractions),"\n\n")
cat("Edges preview:\n")
print(head(x$Edges,nlimit))
cat("\nDEGenes preview:\n")
print(head(x$DEGenes,nlimit))
if (!is.null(x$Annotations))
{
cat("\nAnnotations preview:\n")
print(head(x$Annotations,nlimit))
}
}
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.