# NOT RUN {
# Build a population
pop <- Population(
popSize = 10, map = map100snp, QTL = 20,
alleleFrequencies = runif(100), broadH2 = 0.9,
narrowh2 = 0.5, traitVar = 40
)
pop <- addEffects(pop)
pop <- attachEpiNet(pop)
# Print the initial population
pop
# Run population in simulation
pop2 <- runSim(pop, generations = 50)
# Print the population following the simulation
pop2
# }
Run the code above in your browser using DataLab