powered by
Calculate R squared
.pcr_rsquared(vec, var)
A vector of numerics
A grouping variable
A numeric
# NOT RUN { vec <- rnorm(6, 30, 1) var <- rep(c(.1, .5), 3) pcr:::.pcr_rsquared(vec, var) # }
Run the code above in your browser using DataLab