# NOT RUN {
# Create population and attach an epistatic network
pop <- Population(
popSize = 200, map = map100snp, QTL = 20,
alleleFrequencies = runif(100),
broadH2 = 0.9, narrowh2 = 0, traitVar = 40
)
pop <- attachEpiNet(pop)
# Plot epistatic network
epiNet <- getEpiNet(pop)
plot(epiNet)
# }
Run the code above in your browser using DataLab