Calculate R squared value

Calculate R squared value.

rSquared( y, resid )

Arguments

y

vector of endogenous variables

resid

vector of residuals

Author

Arne Henningsen

Examples

   data( "Electricity", package = "Ecdat" )
   reg <- lm( cost ~ q + pl + pk + pf, Electricity )
   rSquared( Electricity$cost, reg$residuals )
#>           [,1]
#> [1,] 0.9506777
   summary( reg )$r.squared  # returns the same value
#> [1] 0.9506777