ÃÑ 327ÆäÀÌÁö
288ÆäÀÌÁö º»¹®½ÃÀÛ
¥±. À§ÇèºÐ¼®ÀÇ Åë°èÀû ÀÌ·Ð
CODE
library(pROC)
set.seed(1) #°íÁ¤µÈ³¼öÃßÃâÀ»À§ÇÑÇÔ¼ö
#¿¹Á¦µ¥ÀÌÅ͸¦¸¸µé±âÀ§ÇÑÇÔ¼ö»ý¼º
sim_widget_data
x
y
bad_widget100)
data.frame(x,y,bad_widget)}
#¿¹Á¦µ¥ÀÌÅÍ»ý¼º
widget_data
#·£´ýÀ¸·Î½ÃÇèµ¥ÀÌÅÍ¿ÍÈƷõ¥ÀÌÅ͸¦³ª´®
test_set_idx
test_set
training_set
#·ÎÁö½ºÆ½¸ðµ¨À»ÇϳªÀûÇÕ
fit_glm
#Predict()À¸·Î¿¹Æ¯À»ÁøÇà
glm_response_scores
#ROC°î¼±±×¸®±â(½Ç¼±)
plot(roc(test_set$bad_widget,glm_response_scores,direction="
#ROC°î¼±2°³±×¸®±â(Á¡¼±)
for(iinc(18,22)){par(new=TRUE)
widget_data
test_set_idx
test_set
training_set
fit_glm
glm_response_scores
plot(roc(test_set$bad_widget,glm_response_scores,direction="
legend(0.5, 0.3, legend=c("True-Positive Fraction", "Lower Bound","Upper Bound"), lty=c(1,2,2),
cex=0.8) #¹ü·Ê»ý¼º
±×¸² 5-10 ROC °î¼±ÀÇ ¿¹ (Ãâó: Pak µî, 2002).
273
CODE
library(pROC)
set.seed(1) #°íÁ¤µÈ³¼öÃßÃâÀ»À§ÇÑÇÔ¼ö
#¿¹Á¦µ¥ÀÌÅ͸¦¸¸µé±âÀ§ÇÑÇÔ¼ö»ý¼º
sim_widget_data
x
y
bad_widget100)
data.frame(x,y,bad_widget)}
#¿¹Á¦µ¥ÀÌÅÍ»ý¼º
widget_data
#·£´ýÀ¸·Î½ÃÇèµ¥ÀÌÅÍ¿ÍÈƷõ¥ÀÌÅ͸¦³ª´®
test_set_idx
test_set
training_set
#·ÎÁö½ºÆ½¸ðµ¨À»ÇϳªÀûÇÕ
fit_glm
#Predict()À¸·Î¿¹Æ¯À»ÁøÇà
glm_response_scores
#ROC°î¼±±×¸®±â(½Ç¼±)
plot(roc(test_set$bad_widget,glm_response_scores,direction="
#ROC°î¼±2°³±×¸®±â(Á¡¼±)
for(iinc(18,22)){par(new=TRUE)
widget_data
test_set_idx
test_set
training_set
fit_glm
glm_response_scores
plot(roc(test_set$bad_widget,glm_response_scores,direction="
legend(0.5, 0.3, legend=c("True-Positive Fraction", "Lower Bound","Upper Bound"), lty=c(1,2,2),
cex=0.8) #¹ü·Ê»ý¼º
±×¸² 5-10 ROC °î¼±ÀÇ ¿¹ (Ãâó: Pak µî, 2002).
273
288ÆäÀÌÁö º»¹®³¡
¸Þ´º
ÇöÀç Æ÷Ä¿½ºÀÇ ¾Æ·¡³»¿ëµéÀº µ¿ÀÏÇÑ ÄÁÅÙÃ÷¸¦ °¡Áö°í ÆäÀÌÁö³Ñ±è È¿°ú¹× ½Ã°¢Àû È¿°ú¸¦ Á¦°øÇÏ´Â ÆäÀÌÁöÀ̹ǷΠ½ºÅ©¸°¸®´õ »ç¿ëÀÚ´Â ¿©±â±îÁö¸¸ ³¶µ¶ÇϽðí À§ÀÇ ÆäÀÌÁöÀ̵¿ ¸µÅ©¸¦ »ç¿ëÇÏ¿© ´ÙÀ½ÆäÀÌÁö·Î À̵¿ÇϽñ⠹ٶø´Ï´Ù.