# NOT RUN {
# read some data
slist <- readQ(list.files(path=system.file("files/structure",
package="pophelper"),full.names=TRUE))
grps1 <- read.delim(system.file("files/structuregrplabels.txt",
package="pophelper"),header=FALSE, stringsAsFactor=FALSE)
grps2 <- read.delim(system.file("files/structuregrplabels2.txt",
package="pophelper"),header=FALSE, stringsAsFactor=FALSE)
# plot without labels
distructExport(slist[1])
# plot with bottom group label
distructExport(slist[1],grplabbottom=grps1$V1)
# plot with top group label
distructExport(slist[1],grplabtop=grps2$V1)
# plot group mean values
distructExport(slist[1],grplabbottom=grps1$V1,grpmean=TRUE)
# }
Run the code above in your browser using DataLab