# NOT RUN {
data(Fungicide)
# loddsratio was moved to vcd; requires vcd_1.3-3+
# }
# NOT RUN {
if (require(vcd)) {
fung.lor <- loddsratio(Fungicide, correct=TRUE)
fung.lor
confint(fung.lor)
}
# }
# NOT RUN {
# visualize odds ratios in fourfold plots
cotabplot(Fungicide, panel=cotab_fourfold)
# -- fourfold() requires vcd >= 1.2-10
fourfold(Fungicide, p_adjust_method="none")
# }
Run the code above in your browser using DataLab