Meu primeiro pensamento foi calcular uma pseudo R2 medida da seguinte maneira:
ss.dist <- sum(scale(cars$dist, scale=FALSE)^2)
ss.resid <- sum(resid(cars.lo)^2)
1-ss.resid/ss.dist
Aqui, obtemos um valor de 0,6814984 ( ), próximo ao que seria obtido de um GAM :≈ cor(cars$dist, predict(cars.lo))^2
library(mgcv)
summary(gam(dist ~ speed, data=cars))
Isso também parece estar de acordo com o que a loess
função S retornaria (eu não tenho S, portanto não posso verificar sozinho) como Multiple R-squared
. Por exemplo, usando o airquality
conjunto de dados R, que se parece com os air
dados que Chambers e Hastie usaram no 'livro branco' (aquele que está sendo referenciado na ajuda on-line para loess
; mas esse não é exatamente o mesmo conjunto de dados), recebi um de 0,8101377 usando a fórmula acima. Isso está de acordo com o que Chambers e Hastie relataram.R2
Devo observar que eu não encontrou qualquer papel lidar especificamente com isso (ok, isso foi apenas um googling rápida), e não William Cleveland não falar de -como medida em seu papel .R2
span
R2