南京邮电大学多元统计分析实验八-广义线性模型分析

使用平台：R、Rstudio

题目描述：一个城市的居民家庭，按其有无割草机可分为两组，有割草机的记为一组为，没有割草机的一组记为，割草机工厂欲判断一些家庭是否购买割草机。从和分别随机抽取12个样品，调查两项指标：家庭收入，房前屋后土地面积。用y作为二元被解释变量，有割草机的家庭用1表示，没有割草机的家庭用0表示，作为解释变量。（Logistic模型）

rm(list=ls())
library(haven)
data=read_sav("Logistic.sav")
colnames(data)=c("家庭收入","房前屋后土地面积","有无割草机")
head(data)
fit_data=glm(有无割草机~家庭收入+房前屋后土地面积,binomial(link="logit"),data=data)
summary(fit_data)