# NOT RUN {
require(lbreg)
# data preparation
data(PCS)
w <- PCS
w <- w[,-1]
w$race <- factor(w$race)
w$dpros <- factor(w$dpros)
w$dcaps <- factor(w$dcaps)
fm <- lbreg(tumor ~ ., data=w)
HL_test(fm)
# }
Run the code above in your browser using DataLab