So erhalten Sie den R2 -Wert in R.
rsq <- function (x, y) cor(x, y) ^ 2
Rocku0
rsq <- function (x, y) cor(x, y) ^ 2