# 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=F)
grps2 <- read.delim(system.file("files/structuregrplabels2.txt",package="pophelper"),header=FALSE, stringsAsFactor=F)
#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=T)
#automatically run DESTRUCT
distructExport(slist[1],useexe=T)
# }
Run the code above in your browser using DataLab