##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)
|
