# NOT RUN {
mysystem = createInSilicoSystem(G = 5, ploidy = 2)
mypop = createInSilicoPopulation(10, mysystem)
sim = simulateInSilicoSystem(mysystem, mypop, 100, ntrials = 5)
plotHeatMap(sim$Simulation,
c(1, 2, 3),
c("Ind1", "Ind2", "Ind3", "Ind4"),
axis.title = element_text(color = "red"))
# }
Run the code above in your browser using DataLab