# NOT RUN {
cr <- Chromosome(genes=newCollection(Gene(shape1=1, shape2=100),5))
cr
ni <- Niche(chromosomes=newRandomCollection(cr, 10))
ni
newCollection(ni, 2) # list of two new identical Niche objects
newRandomCollection(ni, 2) # list of two new different Niche objects
# }
Run the code above in your browser using DataLab