공유자료 HOME > 자료실 > 공유자료
 
[빅데이터응용6차산업]회귀분석,로지스틱분석 연습
관리자 16-11-26 08:44 387
   모연구소생산문서목록.zip (528.1K) [34] 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)