빅데이터 9일차 - UCLA 대학원 입학 데이터 로지스틱 회귀 활용

# UCLA 대학원 입학 데이터 로지스틱 활용
ucldata <- read.csv("https://stats.idre.ucla.edu/stat/data/binary.csv")
head(ucldata) # ucldata 확인

mod.ucl <- glm(admit~.,data = ucldata) # 로지스틱 회귀
summary(mod.ucl) # summary로 확인

pred <- predict(mod.ucl,ucldata) # predict -> 예측
pred

pred <- round(pred,0) # 반올림
pred

pred == ucldata$admit # 예측값 == 실제값
acc <- mean(pred==ucldata$admit) # 정확도
acc # 출력

[그림1] ucl 대학원 입학 데이터 확인

[그림2] 로지스틱 회귀 

[그림3] predict - > 예측 data

[그림4] 예측값 반올림

[그림5] 예측값과 실제값 비교

[그림6] 정확도 출력

 

 

 

출처 : 모두를 위한 R 데이터 분석 입문 한빛아카데미