if (FALSE) {
data(vcfR_example)
my_pop <- as.factor(paste("pop_", rep(c("A", "B", "C"), each = 6), sep = ""))
vcfR2migrate(vcf = vcf , pop = my_pop , in_pop = c("pop_A","pop_C"),
out_file = "my2pop.txt", method = 'H')
}
Run the code above in your browser using DataLab