wildpop = simulate_admixture(
module = ancestry_module(number_of_founders = 10, morgan = 1),
pop_size = 1000,
total_runtime = 10)
isofemale <- create_iso_female(
module = ancestry_module(input_population = wildpop,
morgan = 1),
n = 1,
inbreeding_pop_size = 100,
run_time = 10)
plot_chromosome(chrom = isofemale[[1]]$chromosome1)
# and a detail of the chromosome:
plot_chromosome(chrom = isofemale[[1]]$chromosome1,
xmin = 0.4,
xmax = 0.6)
Run the code above in your browser using DataLab