# NOT RUN {
#STRUCTURE files
sfiles <- list.files(path=system.file("files/structure",package="pophelper"),full.names=TRUE)
slist <- readQ(sfiles)
tr1 <- tabulateQ(slist)
summariseQ(tr1)
#ADMIXTURE files
afiles <- list.files(path=system.file("files/admixture",package="pophelper"),full.names=TRUE)
tr1 <- tabulateQ(readQ(afiles))
summariseQ(tr1)
# }
Run the code above in your browser using DataLab