°øÀ¯ÀÚ·á HOME > ÀÚ·á½Ç > °øÀ¯ÀÚ·á
 
[ºòµ¥ÀÌÅÍÀÀ¿ë6Â÷»ê¾÷]ȸ±ÍºÐ¼®,·ÎÁö½ºÆ½ºÐ¼® ¿¬½À
°ü¸®ÀÚ 16-11-26 08:44 1,082
   ¸ð¿¬±¸¼Ò»ý»ê¹®¼­¸ñ·Ï.zip (528.1K) [35] DATE : 2016-11-26 08:44:44
##setwd(  ÀÚ½ÅÀÇ working directory )
d <- read.csv("¸ð¿¬±¸¼Ò»ý»ê¹®¼­¸ñ·Ï.csv")
m <- glm(±â°£ ~ °øÀÍ + ¿äû + ¹ß·É + ¿ë¿ª + ½ÉÀÇ + ¿¹º¸ + Àλç + °èȹ + °ø°í + ¸í·É , family="binomial", data=d)
f <- fitted(m)
f
a <- ifelse(f>.1, "Àå±â", "´Ü±â")
a
ifelse(f>.1, "Àå±â", "´Ü±â") == d$±â°£
is_correct <- (ifelse(f>.15, "Àå±â", "´Ü±â") == d$±â°£)
sum(is_correct) / NROW(is_correct)