data(grad)
# EFFECT OF GRE ON UNDERGRAD SCHOOL PRESTIGE ON GRAD ADMISSION
# CONTROLLED FOR SCHOOL RANK
fit <- lexpit(admit~I(scale(gre)),admit~factor(rank),grad)
fit
summary(fit)
# PROB ADMISSION FOR GRE 2 SD ABOVE AVERAGE
# ADJUSTED FOR MOST PRESTIGIOUS UNDERGRAD SCHOOL
ci(fit,C=2,baseline=TRUE,C.expit=c(1,0,0,0))
### USER-SUPPLIED INITIAL VALUES
fit2 <- lexpit(admit~gpa,admit~factor(rank),grad,par.init=list(linear=0,expit=runif(4)))
fit2
Run the code above in your browser using DataLab