library(cna)
ana <- cna(d.educate)
pl <- plot(asf(ana))
pl
plot(csf(ana))
plot(csf(ana), ask = FALSE)
plot(ana)
plot(ana, show_formula = TRUE)
plot(ana, what = "msc", n = 5)
plot(msc(ana), outcome = "E")
plot(ana, what = "msc", outcome = "E") # same as previous
Run the code above in your browser using DataLab