# NOT RUN {
# }
# NOT RUN {
# }
# NOT RUN {
gfile<-system.file("extdata", "example.genepop.txt",package = 'fsthet')
gpop<-my.read.genepop(gfile)
quant.out<-fst.boot(gpop, bootstrap = FALSE)
quant.list<-ci.means(quant.out[[3]])
# }
Run the code above in your browser using DataLab