Estimates squared variance by decomposing model prediction error.
get_var(estimate)
estimate
predicted vector
# Sample data test <- rnorm(25, 80, 35) predicted <- rnorm(25, 80, 50) mlf::get_var(predicted)