[실습] (6) 로지스틱 회귀분석 with R

#잔디깍기 데이터 분석 : 로지스틱 회귀분석

 

mower=read.csv("Mower.csv")
mower$isOwner = ifelse(mower$ownership == "owner", 1, 0)

mower.lgt = glm(isOwner ~ income + lotSize, data = mower, family = "binomial")
summary(mower.lgt)

#p(owner) 계산과 확률값을 이용해 분류
mower$pred.prob = predict(mower.lgt, type="response")
mower$pred.class = ifelse(mower$pred.prob > 0.5, 1, 0)