Скорректированный R-квадрат близок к значению R2, но отличается от него. Вместо того, чтобы основываться на объясненной сумме квадратов SSR и общей сумме квадратов SSY, она основана на общей дисперсии (величина, которую мы обычно не вычисляем), s2T = SSY / (n - 1) и дисперсии ошибок MSE (из таблицы ANOVA) и работает так: скорректированный R-квадрат = (s2T - MSE) / s2T.
Этот подход обеспечивает лучшую основу для оценки улучшения соответствия за счет добавления пояснительной переменной, но он не имеет простой обобщающей интерпретации, которую имеет R2.
Если я не ошибся, вы должны проверить значения скорректированного R-квадрата и R-квадрата следующим образом:
s2T <- sum(anova(v.lm)[[2]]) / sum(anova(v.lm)[[1]])
MSE <- anova(v.lm)[[3]][2]
adj.R2 <- (s2T - MSE) / s2T
С другой стороны, R2 это: SSR / SSY, где SSR = SSY - SSE
attach(v)
SSE <- deviance(v.lm) # or SSE <- sum((epm - predict(v.lm,list(n_days)))^2)
SSY <- deviance(lm(epm ~ 1)) # or SSY <- sum((epm-mean(epm))^2)
SSR <- (SSY - SSE) # or SSR <- sum((predict(v.lm,list(n_days)) - mean(epm))^2)
R2 <- SSR / SSY