x = HairEyeColor
s = list(Hair=c("Black", "Brown"), Eye=c("Brown", "Blue"))
s1 = tabSlice(x, slice=s); s1
tabSlice2Entries(x, slice=s)
tabSlice2Entries(x, slice=s, complement=TRUE)
## tabSliceMult
s2 = tabSliceMult(x, slice=s); s2
sp = list(c(1,2), c(1,2), TRUE)
tabSlicePrim(x, slice=sp)
tabSlice(x, slice=s)
Run the code above in your browser using DataLab