ÃÑ 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

288ÆäÀÌÁö º»¹®³¡



ÇöÀç Æ÷Ä¿½ºÀÇ ¾Æ·¡³»¿ëµéÀº µ¿ÀÏÇÑ ÄÁÅÙÃ÷¸¦ °¡Áö°í ÆäÀÌÁö³Ñ±è È¿°ú¹× ½Ã°¢Àû È¿°ú¸¦ Á¦°øÇÏ´Â ÆäÀÌÁöÀ̹ǷΠ½ºÅ©¸°¸®´õ »ç¿ëÀÚ´Â ¿©±â±îÁö¸¸ ³¶µ¶ÇϽðí À§ÀÇ ÆäÀÌÁöÀ̵¿ ¸µÅ©¸¦ »ç¿ëÇÏ¿© ´ÙÀ½ÆäÀÌÁö·Î À̵¿ÇϽñ⠹ٶø´Ï´Ù.
»ó´Ü¸Þ´º ¹Ù·Î°¡±â ´ÜÃàÅ°¾È³» : ÀÌÀüÆäÀÌÁö´Â ÁÂÃø¹æÇâÅ°, ´ÙÀ½ÆäÀÌÁö´Â ¿ìÃø¹æÇâÅ°, ùÆäÀÌÁö´Â »ó´Ü¹æÇâÅ°, ¸¶Áö¸·ÆäÀÌÁö´Â ÇϴܹæÇâÅ°, ÁÂÃøÈ®´ëÃà¼Ò´Â insertÅ°, ¿ìÃøÈ®´ëÃà¼Ò´Â deleteÅ°