关闭

R语言LR逻辑回归实例

标签: R语言LR逻辑回归实例
1730人阅读 评论(0) 收藏 举报
分类:
二分类实例
去掉setosa类
index <- which(iris$Species == 'setosa')
iris <- iris[- index,]

training <-iris  
#抽样方法  
ind<-sample(2,nrow(training),replace=TRUE,prob=c(0.7,0.3)) #对数据分成两部分,70%训练数据,30%检测数据nrow(training)行数  
traindata<- training [ind==1,]  #训练集  
testdata<- training [ind==2,]
#二项分布族binomial--正态、指数、gamma、逆高斯、Poisson、二项
fit <- glm(Species ~.,family=binomial(link='logit'),data=traindata)

predict <- predict(fit,type='response',newdata=testdata)
real <- testdata$Species
res <- data.frame(real,predict =ifelse(predict>0.5,'virginca','versicorlor'))
table(real,predict =ifelse(predict>0.5,'virginca','versicorlor'))

0
1

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:164492次
    • 积分:2839
    • 等级:
    • 排名:第14158名
    • 原创:159篇
    • 转载:14篇
    • 译文:0篇
    • 评论:38条
    github地址
    https://github.com/lytforgood
    最新评论