# without dimnames
a <- abind::abind(HairEyeColor*1, HairEyeColor*2, HairEyeColor*3, along = 4L)
a2la(a)
# with dimnames
a <- abind::abind("one" = HairEyeColor*1, "two" = HairEyeColor*2,
"three" = HairEyeColor*3, along = 4L)
a2la(a)
a2la(a, along = 1) # along = 1
Run the code above in your browser using DataLab