Cómo obtener el valor R2 en R

rsq <- function (x, y) cor(x, y) ^ 2
Rocku0