exploring crosstabs

Type your text here.

load(paste("~", "data/MSEstonia.RData", sep = "/"))

MS_Estonia$Child <- as.numeric(MS_Estonia$Age) <= 15
table(MS_Estonia$Survival, MS_Estonia$Child)

##    
##     FALSE TRUE
##   0   838   14
##   1   135    2

crosstab(MS_Estonia, row.vars = "Survival", col.vars = "Child", type= "c")

##   Survival/ Child FALSE  TRUE
## 3  0               86.1  87.5
## 4  1               13.9  12.5
## 5  Sum            100.0 100.0

crosstab(MS_Estonia, row.vars = "Survival", col.vars = "Gender", type= "c")

##   Survival/ Gender     0     1
## 3  0                78.0  94.6
## 4  1                22.0   5.4
## 5  Sum             100.0 100.0