#edges <- data.frame(node1=c("1132", "1133", "1134", "1134", "1145", "1147"),
# node2=c("1134", "1134", "1145", "1147", "1147", "1149"),
# label=c(1, 1, 1, 0, 0, 0))
#graph<-igraph::graph.data.frame(edges,directed=FALSE)
#samplefile <- "ppiPre-ComputeAllEvidences-sample.csv"
#write.csv(edges,file=samplefile,row.names=FALSE)
#ComputeAllEvidences(input=samplefile,output="AllEvidences-ppiPre.csv",organism="human")
#result<-read.csv(file="AllEvidences-ppiPre.csv")
#print(result)
Run the code above in your browser using DataCamp Workspace