data(jsmackerel)
jsm.ms.genepop.file <- tempfile()
jsm.ms.freq.file <- tempfile()
jsm.mt.freq.file <- tempfile()
jsm.popname.file <- tempfile()
cat(jsmackerel$MS.genepop, file=jsm.ms.genepop.file, sep="\n")
cat(jsmackerel$MS.freq, file=jsm.ms.freq.file, sep="\n")
cat(jsmackerel$mtDNA.freq, file=jsm.mt.freq.file, sep="\n")
cat(jsmackerel$popname, file=jsm.popname.file, sep=" ")
# See four text files in your working directory.
# jsm.ms.genepop.file : GENEPOP format file of microsatellite data
# jsm.ms.freq.file : frequency format file of microsatellite data
# jsm.mt.freq.file : frequency format file of mtDNA D-loop region data
# jsm.popname.file : plain text file of subpopulation names
Run the code above in your browser using DataLab