私は一連の種の生態学的ニッチ モデルを生成しており、AUC を生態学的ニッチの品質の指標として使用したいと考えています。Maxent を開発した Steven Phillips は、彼の Maxent マニュアルで、R で AUC を計算するためのコードを提供しています。しかし、私は部分的な AUC 比率をより堅牢で概念的に健全なメトリックとして報告している論文を読んでいます。ROCR R パッケージを使用して部分 AUC を計算する方法は理解できたと思いますが、AUC 比率をどのように計算するのですか?
Phillips のチュートリアル スクリプトは次のとおりです。
presence<-read.csv("bradypus_variegatus_samplePredictions.csv")
background<-read.csv("bradypus_variegatus_backgroundPredictions.csv")
pp<-presence$Logistic.prediction
testpp<-pp[presence$Test.or.train=="test"]
trainpp<-pp[presence$Test.or.train=="train"]
bb<-background$logistic
combined<-c(testpp,bb)
label<-c(rep(1,length(testpp)),rep(0,length(bb)))
pred<-prediction(combined,label)
perf<-performance(pred,"tpr","fpr")
plot(perf,colorize=TRUE)
performance(pred,"auc")@y.values[[1]] #RETURNS AUC
AUC<-function(p,ind){
pres<-p[ind]
combined<-c(pres,bb)
label<-c(rep(1,length(pres)),rep(0,length(bb)))
predic<-prediction(combined,label)
return(performance(predic,'auc')@y.values[[1]])
}
b1<-boot(testpp,AUC,100) #RETURNS AUC WITH STANDARD ERROR
b1
アドバイスや提案をいただければ幸いです。ありがとうございました。