# NOT RUN {
sfiles <- list.files(path=system.file("files/structure",package="pophelper"), full.names=TRUE)
slist <- readQ(sfiles)
slist_2 <- splitQ(slist)
str(slist,max.level=0)
str(slist_2,max.level=1)
# }
Run the code above in your browser using DataLab