fixed a bug: the fitness value when returning was

casted from SEXP to double, which happened to work
under R 2.x but gives nan under R 3.0.0