# data(SpADataExpression)
# data(SpADEGenes)
# SpAData<-DEGeneExpr(t(SpADataExpression),SpADEGenes)
# SpASTRINGNet<-getSTRINGNet(SpAData)
# Can be longer.
# SpASTRINGNet<-getSTRINGNet(SpAData,AddAnnotations=FALSE)
# print(SpASTRINGNet,5)
# summary(SpASTRINGNet)
# PPISpASTRINGNet<-selectInteractionTypes(SpASTRINGNet,
# c("coexpression","experimental","knowledge"),0.9)
# export(PPISpASTRINGNet,"PPISpASTRINGNet",T)
# shortPathSpANet<-getShortestPaths(PPISpASTRINGNet)
# shortPathSpANet<-FilterEdges(shortPathSpANet,2.2)
# print(shortPathSpANet,5)
# summary(shortPathSpANet)
# export(shortPathSpANet,"shortPathSpANet",T)
Run the code above in your browser using DataCamp Workspace