R2 incorrect for methods that use update(model, ~1) and have missing data

[strengejacke]

Fixes #803

[strengejacke]

Tests in McFadden fail.
We need to extract data from env, not model frame, then filter for complete cases (only data for model predictors). passing model-frame to update() doesn't work with variables like y / 10 etc.