Eu calculo de acordo com Nakagawa et al. 2012.

r2.marginal é variância do dados calculado divida pela variância dos dados originais. Segue um exemplo abaixo.

Att

r2.calculate <- function(model, resp, var.random.name){
  var.fitted <- var(fitted(model))
  var.random <- VarCorr(model)[[var.random.name]][1]
  var.resp <- var(resp)
  r2.marginal <- var.fitted/var.resp
  r2.condicional <- (var.fitted + var.random)/var.resp
  return(c(r2.marginal=r2.marginal, r2.condicional=r2.condicional))
}


2014-02-11 19:45 GMT-02:00 Fernando Souza <nandodesouza@gmail.com>:
Caros colegas.

Rodei um modelo de regressão misto multivariado por meio da função lme (pacote nlme) eu obter o coeficiente de regressão parcial das variáveis selecionadas no modelo (R2 parcial). Estou com algumas dúvidas sobre como se calcula esse coeficiente. Alguém pode me explicar ou me indicar algum bom texto (tipo for Dummies) para que eu possa me inteirar sobre o assunto?

att
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.



--
Alisson Lucrecio da Costa