mod_1 <- lm(price ~ fireplaces, data = Houses_for_sale)
mod_2 <- lm(price ~ fireplaces + living_area, data = Houses_for_sale)
effect_size(mod_1, ~ fireplaces)
effect_size(mod_2, ~ fireplaces)
fmodel(mod_2, ~ living_area + fireplaces)
Run the code above in your browser using DataLab