Как рассчитать R-квадрат ( ) статистики в R для и / или выхода функции? Например, для этих данных:loess
predict
cars.lo <- loess(dist ~ speed, cars)
cars.lp <- predict(cars.lo, data.frame(speed = seq(5, 30, 1)), se = TRUE)
cars.lp
имеет два массива fit
для модели и se.fit
для стандартной ошибки.
Ответы:
Моей первой мыслью было вычислить псевдоR2 меру следующим образом:
Здесь мы получаем значение 0,6814984 ( ), близкое к тому, что будет получено из GAM :≈
cor(cars$dist, predict(cars.lo))^2
loess
Multiple R-squared
airquality
air
loess
span
источник