# NOT RUN {
bb <- list(fa=gl(2,2),c=31:33,L2=matrix(21:28,nc=2),li=list(li1=11:14,li2=data.frame(41:44)))
asSepList(bb)
## multi data-frame examples
ca <- data.frame(a=11:15,b=21:25,c=31:35)
cb <- data.frame(a=51:53,b=61:63)
cc <- list(gl(3,2),ca, cb, 91:94, short=81:82, letters[1:5])
asSepList(cc)
cd <- list(e1=gl(3,2),e2=ca, e3=cb, e4=91:94,short=81:82, e6=letters[1:5])
asSepList(cd)
# }
Run the code above in your browser using DataLab