data(grad)
fit <- blm(admit~factor(rank),grad)
fit
summary(fit)
ci(fit,c(1,0,0,0)) #PROB GRAD SCHOOL ADMISSION
#FOR STUDENTS FROM MOST PRESTIGIOUS SCHOOL
### INCLUDE FACTORS FOR UNDERGRAD GPA AND GRE AND SUPPLY INITIAL VALUES
fit2 <- blm(admit~gre+gpa+factor(rank),grad,par.init=c(.5,rep(0,5)))
fit2
### IMPROVEMENT IN AIC USING 2 DEGREES OF FREEDOM
summary(fit)$AIC-summary(fit2)$AIC
Run the code above in your browser using DataLab