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

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