# NOT RUN {
population <- creating.diploid(nsnp=1000, nindi=100, n.additive = c(100,100,100),
shuffle.cor = matrix(c(1,0.8,0.2,0.8,1,0.2,0.2,0.2,1), ncol=3), shuffle.traits = 1:3)
population <- breeding.diploid(population, phenotyping = "all", heritability = 0.5)
get.dendrogram.trait(population, gen=1, type="pheno")
# }
Run the code above in your browser using DataLab