edges <- data.frame(node1=c("1132", "1133", "1134"),node2=c("1134", "1134", "1145"))
graph<-igraph::graph.data.frame(edges,directed=FALSE)
samplefile <- "ppiPre-FNPre-sample.csv"
write.csv(edges,file=samplefile,row.names=FALSE)
FNPre(file=samplefile, indicator = c("RA", "AA"), threshold = 0.1)
result<-read.csv(file="FalseNegativePreResult-ppiPre.csv")
print(result)
Run the code above in your browser using DataLab