add proper ratio-imputation

[markvanderloo]

Ratio imputation is based on a weighted single regressio regression Y = bX with weights 1/X. Would be nice to have a impute_ratio function. Also lm makes a different choice in selecting data under missingess than

b <- mean(Y,na.rm=TRUE)/mean(X,na.rm=TRUE)