t1 <- ctab(c("gender","answer"),list(c('male','female'),c('yes','no')), values=1:4)
t2 <- ctab(c("answer","category"), list(c('yes','no'),c(1,2)), values=1:4+10)
t3 <- ctab(c("category","foo"), c(2,2), values=1:4+100)
varNames(t1)
nLevels(t1)
valueLabels(t1)
ctabop(t1,t2, "*")
ctabop(t1,t2, "/")
tgender <- ctabmarg(t1, "gender")
t1
tgender
ctabop(t1,tgender,"/")
Run the code above in your browser using DataLab