IT BAL LAB Session 5

 

 

 

 

 

 

ASSIGNMENT 2 :



Data 1-700 is available. Using GLM distribution & LOGIT analysis predict data for 701-850



Commands:



>logit.eg<-read.csv(file.choose(),header=T)

>z1<-logit.eg[1:700,1:9]

>head(z1)

>z1$ed<-factor(z1$ed)

>z1.est<-glm(default~age+ed+employee+address+income,data=z1,family="binomial)

>summary(z1.est)

>forecast<-logit.eg[701:850,1:8]

>forecast$ed<-factor(forecast$ed)

>forecast$probability<-predict(z1.est,newdata=forecast,type="response")

>head(forecast)