data(herring)
ah.genepop.file <- tempfile()
ah.popname.file <- tempfile()
cat(herring$genepop, file=ah.genepop.file, sep="\n")
cat(herring$popname, file=ah.popname.file, sep=" ")
# See two text files in temporary directory.
# ah.genepop.file : GENEPOP format file of 281SNPs in 18 subpopulations
# ah.popname.file : plain text file of subpopulation names
print(herring$environment)
# herring$popdata = read.genepop(genepop="AH_genepop.txt", popname="AH_popname.txt")
# herring$fst.bootstrap = FstBoot(herring$popdata)
# herring$fst.env = FstEnv(herring$fst.bootstrap, herring$environment, herring$distance)
Run the code above in your browser using DataLab