¿Cómo calcular la estadística R-cuadrado ( ) en R para y / o salida de función? Por ejemplo para estos datos:loess
predict
cars.lo <- loess(dist ~ speed, cars)
cars.lp <- predict(cars.lo, data.frame(speed = seq(5, 30, 1)), se = TRUE)
cars.lp
tiene dos matrices fit
para modelo y se.fit
para error estándar.
Respuestas:
Mi primer pensamiento fue calcular una medida de pseudoR2 siguiente manera:
Aquí, obtenemos un valor de 0.6814984 ( ), cercano a lo que se obtendría de un GAM :≈
cor(cars$dist, predict(cars.lo))^2
loess
Multiple R-squared
airquality
air
loess
span
fuente