#Function for obtaining AUC
#Once you have obtained predizioni with the Prediction function you can apply
#this AUPR function using the following command (testpharmat sideeffects test matrix)
#vectorAUPR<-numeric()
#vectorAUPR<-AUPR(predizioni,testpharmat,vectorAUPR,"KSeeds")
Run the code above in your browser using DataLab