패키지 ROCR을 사용하여 정밀 호출 곡선의 AUC

Question

ROCR 패키지를 사용하여 정밀 호출 곡선의 AUC (곡선 아래 영역)를 구하는 방법?

library(ROCR) 
data(ROCR.simple) 
pred <- prediction(ROCR.simple$predictions, ROCR.simple$labels) 
perf <- performance(pred,"tpr","fpr") 
plot(perf) 
## precision/recall curve (x-axis: recall, y-axis: precision) 
perf1 <- performance(pred, "prec", "rec") 
plot(perf1) 

Answer 1

먼저 정밀도를 얻을 수

및 리콜은

x <- perf1@x.values[[1]] # Recall values 
y <- perf1@y.values[[1]] # Precision values 

값 다음 calculate area under the curve

Answer 2

ROCR 직접 AUC를 계산할 수에서 방법 중 하나를 사용하여 곡선 아래의 면적을 계산 :

perf <- performance(pred, "auc") 

Get AUC