# NOT RUN {
df <- MASS::biopsy[,2:11]
mod <- glm(class ~ ., data=df ,family = "binomial")
vn <- c("Intercept","clump thickness","uniformity cell size","uniformity cell shape",
"marginal adhesion","epithelial cell size","bare nuclei",
"bland chromatin","normal nucleoli","mitoses")
rn <- data.frame(vars=vn,cats=rep("",10))
tab2 <- Table2(mod=mod,rv = vn)
Table2.forestplot(mod)
Table2.forestplot(mod=mod,nr=rn)
# }
Run the code above in your browser using DataLab