# Construct artificial probability scores and true class labels
score.ex <- runif(1000, 0, 1)
class.ex <- unlist(lapply(score.ex, function(x){rbinom(1,1,x)}))
# Make prediction object (ROCR package)
pred.ex <- prediction(score.ex, class.ex)
# Calculate EMP measures for credit risk scoring
empCreditScoring(pred.ex)
# Calculate EMP measures for credit risk scoring with point masses
# in 0.1 and 0.9, and 0.1 ROI
empCreditScoring(pred.ex, 0.1, 0.1, 0.1)
Run the code above in your browser using DataLab