data(data.JSM)
cat(data.JSM$genepop, file="JSM_genepop.txt", sep="\n")
cat(data.JSM$popname, file="JSM_popname.txt", sep=" ")
# See two text files, JSM_genepop.txt and JSM_popname.txt, in your working directory.
Run the code above in your browser using DataLab