问题描述
此处为逻辑回归模型
glm.fit <- glm(activity~orbsize,data=data,family="binomial")
summary(glm.fit)
我尝试了一个新数据,它工作正常
prob <- predict(glm.fit,newdata,type="response")
pred <- ifelse(prob > 0.5,"Nocturnal","Diurnal")
但我如何绘制它?
xline <- seq(min(newdata$orbsize),max(data$orbsize),5)
yline <- predict(glm.fit,type="response")
lines(xline,yline,col="red")
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)