# NOT RUN {
# set desired parameters
# number of individuals
n_ind <- 1000
# number of intermediate subpopulations
k_subpops <- 10
# differentiation of intermediate subpopulations
coanc_subpops <- ( 1 : k_subpops ) / k_subpops
# construct admixture proportions
admix_proportions <- admix_prop_1d_linear(n_ind, k_subpops, sigma = 1)
# lastly, calculate Fst!!! (uniform weights in this case)
fst_admix(admix_proportions, coanc_subpops)
# }
Run the code above in your browser using DataLab