obs = c(1,4,5,6)
est = c(0,1,4,7)
#example using values
r2(obs, est)
r2(obs, est, param = 1)
#example using model
mod = lm(obs ~ est)
r2(mod)
summary(mod)$r.squared
r2(mod, param = 1)
summary(mod)$adj.r.squared
Run the code above in your browser using DataLab