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