add proper ratio-imputation

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
```r
b <- mean(Y,na.rm=TRUE)/mean(X,na.rm=TRUE)
```