数据挖掘算法逻辑回归-R实现

Logistic回归代码-R实现

##设置工作空间
#首先用setwd设置工作空间，如设置到D盘,并将相关数据拷贝到该目录下
setwd("D:/logistic")
#读入数据
Data=read.csv("D:/logistic/data")
#数据命名
colnames(Data)<-c("x1","x2","x3","x4","x5","x6","x7","x8","y")
#logistic回归模型
glm=glm(y~x1+x2+x3+x4+x5+x6+x7+x8,family=binomial(link=logit),data=Data)
summary(glm)
#####逐步寻优法
logit.step<-step(glm,direction="both")
summary(logit.step)
#####前向选择法
logit.step<-step(glm,direction="forward")
summary(logit.step)
#####后向选择法
logit.step<-step(glm,direction="backward")
summary(logit.step)