R squared for list of Mixed models

Rsq.R

# Compute R squared from a list of computed and selected models

# Packages ---------------------------------------------------------------------------------------
library(MuMIn)


# Fit general model ------------------------------------------------------------------------------

global_mod = lm(mpg ~ ., data = mtcars)


# Model selection --------------------------------------------------------------------------------

dd = dredge(global_mod)  # Summary table of all models

all_models = get.models(dd, subset = TRUE)


# R Squared --------------------------------------------------------------------------------------

rsq = do.call(rbind, lapply(all_models, r.squaredGLMM))