#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<-graph.data.frame(edges,directed=FALSE)
  #trainsample <- "ppiPre-SVMPredict-trainsample.csv"
  #write.csv(edges,file=trainsample,row.names=FALSE) 
  #edges <- data.frame(node1=c("1132", "1133", "1134", "1134", "1146", "1147"),
  #                    node2=c("1133", "1134", "1142", "1147", "1147", "1149"),
  #                    label=c(1, 0, 1, 0, 1, 0))
  #graph<-igraph::graph.data.frame(edges,directed=FALSE)
  #predictsample <- "ppiPre-SVMPredict-predictsample.csv"
  #write.csv(edges,file=predictsample,row.names=FALSE) 
  #SVMPredict(trainsample, predictsample, organism="human", replaceNA=0)
Run the code above in your browser using DataLab