How to calculate variance explained in regression. > full <- lm(mpg ~ .