powered by
Calculate variance decomposition
calculate_variance_decomposition(data, depvar, mean_model, s2, verbose = TRUE)