#import the data set in csv form. distress<-read.csv("D:Distress.csv") #run the logit regression mylogit <- glm(yd ~ tdta+gempl+opita+invsls+lsls, family=binomial(link = "logit"), data=distress) summary(mylogit) #remove invsls mylogit2 <- glm(yd ~ tdta+gempl+opita+lsls, family=binomial(link = "logit"), data=distress) summary(mylogit2) #run the probit regression myprobit <- glm(yd ~ tdta+gempl+opita+invsls+lsls, family=binomial(link = "probit"), data=distress) summary(myprobit) #remove invsls myprobit2 <- glm(yd ~ tdta+gempl+opita+lsls, family=binomial(link = "probit"), data=distress) summary(myprobit2)