# NOT RUN {
#Load simulated dataset
data(example_SNP)
idx1 <- which(sample_labels == 'pop1')
idx2 <- which(sample_labels == 'pop2')
fst <- fst.hudson(simsnp$snp, idx1, idx2)
#Print out the Fst value between 'pop1' and 'pop2'
print(fst)
#Load simulated dataset
data(example_SNP)
idx1 <- which(sample_labels == 'pop1')
idx2 <- which(sample_labels == 'pop2')
fst <- fst.hudson(simsnp$snp, idx1, idx2)
#Print out the Fst value between 'pop1' and 'pop2'
print(fst)
# }
Run the code above in your browser using DataLab