# NOT RUN {
# }
# NOT RUN {
# }
# NOT RUN {
gfile<-system.file("extdata", "example.genepop.txt",package = 'fsthet')
gpop<-my.read.gpop(gfile)
fsts<-calc.actual.fst(gpop)
boot.out<-as.data.frame(t(replicate(10, fst.boot(gpop))))
outliers<-find.outliers(fsts,boot.out)
# }
Run the code above in your browser using DataLab