# NOT RUN {
cr <- Chromosome(genes=newCollection(Gene(shape1=1, shape2=100),5))
cr
as.double(cr) # the same
as.numeric(cr) # the same
decode(cr) # the same
as.vector(cr) # NA's is not the same
# }
Run the code above in your browser using DataLab