## Not run:
# # 1) Generate prediction file with HPPA predicitions for human genes
# architecture.file <-
# "http://dcgor.r-forge.r-project.org/data/Algo/SCOP_architecture.txt"
# prediction.file <- "SCOP_architecture.HPPA_predicted.txt"
# res <- dcAlgoPredictMain(input.file=architecture.file,
# output.file=prediction.file, RData.HIS="Feature2HPPA.sf",
# parallel=FALSE)
#
# # 2) Calculate Precision and Recall
# GSP.file <- "http://dcgor.r-forge.r-project.org/data/Algo/HP_anno.txt"
# res_PR <- dcAlgoPredictPR(GSP.file=GSP.file,
# prediction.file=prediction.file, ontology="HPPA")
# res_PR
#
# # 3) Plot PR-curve
# plot(res_PR[,2], res_PR[,1], xlim=c(0,1), ylim=c(0,1), type="b",
# xlab="Recall", ylab="Precision")
# ## End(Not run)
Run the code above in your browser using DataLab