# NOT RUN {
x = HairEyeColor
s = list(Hair=c("Black","Brown"), Eye=c("Brown", "Blue"))
## arslice
s1 = ar_slice(x, slice=s)
s1
## ar_slice_entries
ar_slice_entries(x, slice=s)
ar_slice_entries(x, slice=s, complement=TRUE)
## ar_slice_mult
s2 = ar_slice_mult(x, slice=s)
s2
## arslice_prim does the same as arslice - faster, but the function is less
# flexible
sp = list(c(1,2), c(1,2), TRUE)
ar_slice_prim(x, slice=sp)
ar_slice(x, slice=s)
# }
Run the code above in your browser using DataLab