# NOT RUN {
hec <- HairEyeColor
a1 <- ar_marg(hec, c("Hair", "Eye"))
a2 <- ar_marg(hec, c("Hair", "Sex"))
a3 <- ar_marg(hec, c("Eye", "Sex"))
## Binary operations
a1 %a+% a2
a1 %a-% a2
a1 %a*% a2
a1 %a/% a2
ar_sum(a1, a2, a3)
ar_prod(a1, a2, a3)
# }
Run the code above in your browser using DataLab