function (val, y, N=0) { # val は判別関数 F(x) の値,y はクラスラベル m = sum(y == 0) #y=0 のサンプル数
n = sum(y == 1) #y=1 のサンプル数
TPR = 1 # TPRの初期値
FPR = 1 # FPRの初期値
AUC=0 #AUC の初期値
uni_val=sort(unique(val)) #閾値 c の集合 plot(1,1,type="n",xlim=c(0,1),ylim=c(0,1),xlab="FPR",ylab="TPR") #描画 for (i in 1:length(uni_val)) {
cri=uni_val[i]
FPR[i+1]=?
TPR[i+1]=?
AUC=?
segments(FPR[i],TPR[i],FPR[i+1],TPR[i+1]) #ROC カーブを描画
}
title(paste("ROC curve","(T=",N,")")) #図にタイトルを追加 text(0.8,0.2,paste("AUC=",round(AUC,3))) # 図に AUC の値を描画 return(list(AUC=AUC))
}
このコードの?の部分に何をいれればいいのかわからないのでお時間があれば教えてください。
回答1件
あなたの回答
tips
プレビュー