## Not run:
# x1 <- runif(100); x2 <- runif(100); y <- sample(0:1, 100, TRUE)
# f <- lrm(y ~ x1 + x2, x=TRUE, y=TRUE)
# seed <- .Random.seed
# b <- bootcov(f)
# # Get estimated log odds at x1=.4, x2=.6
# X <- cbind(c(1,1), x1=c(.4,2), x2=c(.6,3))
# est <- X
# ests <- t(X
# bootBCa(est, ests, n=100, seed=seed)
# bootBCa(est, ests, type='bca', n=100, seed=seed)
# bootBCa(est, ests, type='basic', n=100, seed=seed)
# ## End(Not run)
Run the code above in your browser using DataLab