Texreg no me está mostrando el valor de R cuadrado y R cuadrado ajustado.
Tengo un modelo:
mixed.lmer.str.df <- lmer(StroopEffort ~ Temperature + RH + sex + (1|Participant) + (1|order), data = df)
Y estoy usando LmerTest. El resumen es el siguiente:
Quiero exportarlo a LaTeX, el problema es que, a diferencia de lo que puedo ver en diferentes ejemplos, e incluso cuando hago que todos los argumentos sean “True”, aún no se muestran los Rsquared condicionales y ajustados, aunque puedo verlos cuando uso Tab_Model.
El código:
mixed.lmer.str.df <- lmer(StroopEffort ~ Temperature + RH + sex +(1|Participant)+ (1|order), data = df)
summary(mixed.lmer.str.df)
tab_model(mixed.lmer.str.df)
texreg(mixed.lmer.str.df,booktabs = TRUE, include.aic = TRUE, include.bic = TRUE,
include.dic = TRUE ,include.deviance = TRUE, include.loglik = TRUE,include.nobs = TRUE,include.groups = TRUE,include.variance = TRUE)
Salida de texreg
¿Podría decirme cuál es el problema, por favor?
davy.ai
El problema parece ser que la función
texreg
no incluye el R-cuadrado condicional y ajustado de forma predeterminada. Puedes agregarlos manualmente utilizando el argumentocustom.model
y especificando las ecuaciones para esas estadísticas. Aquí tienes un código de ejemplo que debería funcionar para ti:“`{r}
Definir ecuaciones personalizadas para R-cuadrado
cond.r2.eqn <- function(model) {
r2c <- summary(model)$r.squared
paste0(“$R^2_{c}$ = “, round(r2c, 2))
}
adj.r2.eqn <- function(model) {
r2adj <- summary(model)$adj.r.squared
paste0(“$R^2_{adj}$ = “, round(r2adj, 2))
}
Pasar las ecuaciones personalizadas a texreg() utilizando el argumento custom.model
texreg(mixed.lmer.str.df, booktabs = TRUE, include.aic = TRUE, include.bic = TRUE,
include.dic = TRUE ,include.deviance = TRUE, include.loglik = TRUE,
include.nobs = TRUE, include.groups = TRUE, include.variance = TRUE,
custom.model = list(cond.r2.eqn, adj.r2.eqn))
“`
Esto debería agregar el R-cuadrado condicional y ajustado a tu tabla en LaTeX.