# data
data(data.JSM)
cat(data.JSM$genepop, file="JSM_genepop.txt", sep="\n")
cat(data.JSM$popname, file="JSM_popname.txt", sep=" ")
# read GENEPOP file with subpopulation names
popdata <- read.genepop(genepop="JSM_genepop.txt", popname="JSM_popname.txt")
# read GENEPOP file without subpopulation names
popdata.noname <- read.genepop(genepop="JSM_genepop.txt")
Run the code above in your browser using DataLab