Commit 5e61d7ad authored by kunstler's avatar kunstler
Browse files

new R2m R2c

parent e93a630d
#### function to analyse lmer output
library(lme4)
library(MuMIn)
read.lmer.output <- function(file.name){
......@@ -10,8 +11,8 @@ read.lmer.output <- function(file.name){
summarise.lmer.output <- function(x){
list( nobs = nobs(x),
R2m =Rsquared.glmm.lmer(x)$Marginal,
R2c =Rsquared.glmm.lmer(x)$Conditional,
R2m =r.squaredGLMM(x)[['R2m']],
R2c =r.squaredGLMM(x)[['R2c']],
AIC = AIC(x),
deviance = deviance(x),
conv = x@optinfo$conv,
......@@ -23,8 +24,8 @@ summarise.lmer.output <- function(x){
summarise.lmer.all.output <- function(x, random.name ){
list( nobs = nobs(x),
R2m = Rsquared.glmm.lmer(x)$Marginal,
R2c = Rsquared.glmm.lmer(x)$Conditional,
R2m =r.squaredGLMM(x)[['R2m']],
R2c =r.squaredGLMM(x)[['R2c']],
AIC = AIC(x),
deviance = deviance(x),
conv = x@optinfo$conv,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment