function get_numerics

[FloSchuberth]

Hey

I spotted a similar problem in the function get_numerics
Iwould replace the first two lines:
mvs_class = sapply(MV, class)
mvs_as_factors <- mvs_class == "factor"

by
mvs_as_factors = sapply(MV, is.factor)

In the test_factors function it does not seem to be a problem but the code could be adjusted in the same way.

Kind regards,
Flo