# NOT RUN {
universe <- list(gender=c('male','female'),
answer=c('yes','no'),
rain=c('yes','no'))
t1 <- tabNew(c("gender","answer"), levels=universe, values=1:4)
t1
t2 <- tabNew(~gender:answer, levels=universe, values=1:4)
t2
t3 <- tabNew(~gender:answer, c(2,2), values=1:4)
t3
# }
Run the code above in your browser using DataLab