functie as.numeric.factor toegevoegd