# \donttest{
# Miscellaneous
r <- report_table(sessionInfo())
r
summary(r)
# Data
report_table(iris$Sepal.Length)
report_table(as.character(round(iris$Sepal.Length, 1)))
report_table(iris$Species)
report_table(iris)
# h-tests
report_table(t.test(mtcars$mpg ~ mtcars$am))
# ANOVAs
report_table(aov(Sepal.Length ~ Species, data = iris))
# GLMs
report_table(lm(Sepal.Length ~ Petal.Length * Species, data = iris))
report_table(glm(vs ~ disp, data = mtcars, family = "binomial"))
# }
# \donttest{
# Mixed models
library(lme4)
model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris)
report_table(model)
# }
if (FALSE) { # requireNamespace("rstanarm", quietly = TRUE)
# \donttest{
# Bayesian models
library(rstanarm)
model <- suppressWarnings(stan_glm(Sepal.Length ~ Species, data = iris, refresh = 0, iter = 600))
report_table(model, effectsize_method = "basic")
# }
}
if (FALSE) { # requireNamespace("lavaan", quietly = TRUE)
# \donttest{
# Structural Equation Models (SEM)
library(lavaan)
structure <- "ind60 =~ x1 + x2 + x3
dem60 =~ y1 + y2 + y3
dem60 ~ ind60"
model <- lavaan::sem(structure, data = PoliticalDemocracy)
suppressWarnings(report_table(model))
# }
}
Run the code above in your browser using DataLab