downscaledl (version 1.0)

r2_squ: r2_squ

Description

This function is to calculate rsquared value for regression models.

Usage

r2_squ(obs, res)

Arguments

obs

vector, observed values

res

residual (observed values-predicted values)

Value

double for rsquared

Examples

# NOT RUN {
n=300
x=runif(n,1,100)
y=3*x^2+sqrt(abs(x))+rnorm(n)
lmodel=lm(y~x)
ypre=predict(lmodel,data=x)
r2=r2_squ(y,y-ypre)
message(paste("r2 is :",r2))
# }