data(Titanic, package="datasets")
seq_mosaic(Titanic) # models of joint independence, Survived last
seq_mosaic(Titanic, type="condit")
seq_mosaic(Titanic, type="mutual")
# other panel functions and options: presently BUGGED
if (FALSE) {
seq_mosaic(Titanic, type="mutual", panel=sieve,
gp=shading_Friendly, labeling=labeling_values)
}
Run the code above in your browser using DataLab