# NOT RUN {
cr <- Chromosome(genes=newCollection(Gene(shape1=1, shape2=100),5))
cr
ni <- Niche(chromosomes = newRandomCollection(cr, 10))
ni
fn <- function(chr, parent) { sd(as.double(chr))/mean(as.double(chr)) }
evaluate(ni, fn, parent)
getFitness(ni) ## see results
summary(ni)
# }
Run the code above in your browser using DataLab