simple as.factor R unit