#### Illustration odds Ratios  mit Titanic Daten ###
### Vorlesung Helmut Küchenhoff 2.12.2015   

data(Titanic)
Titanic;
### Lade Paket vcd ####
library(vcd);
 library(stats)
margin.table(Titanic,1)   #Class
margin.table(Titanic,2)   #Sex
margin.table(Titanic,3)   #kind/E
margin.table(Titanic,4)   #Survive
prop.table(margin.table(Titanic,4)) ## reltive H
### Darstellung der ganzen Tabelle in anderer Reihenfoge
margin.table(Titanic,c(4,3,2,1))
margin.table(Titanic,c(2,4))
oddsratio(margin.table(Titanic,c(2,4)),log=FALSE)
margin.table(Titanic,c(2,4,1))
oddsratio(margin.table(Titanic,c(2,4,1)),log=FALSE)
 margin.table(Titanic,c(2,4,3))
oddsratio(margin.table(Titanic,c(2,4,3)),log=FALSE)
oddsratio(margin.table(Titanic,c(3,2,4,1)),log=FALSE)
margin.table(Titanic,c(4,1))
margin.table(Titanic,c(2,4))
prop.table(Titanic,3)
prop.table(Titanic,c(4,3,2))