# NOT RUN {
cr <- Chromosome(genes=newCollection(Gene(shape1=1, shape2=100),5))
ni <- Niche(chromosomes=newRandomCollection(cr, 10))
ni
as.double(ni)
as.double(as.matrix(ni)) # the same
as.numeric(ni) # the same
as.vector(ni) # NA is definitively NOT the same
# }
Run the code above in your browser using DataLab