Nothing
if (suppressWarnings(
require("testthat") &&
require("sjlabelled") &&
require("haven") &&
require("sjPlot")
)) {
# glm, logistic regression ----
data(efc)
efc$gewicht <- rnorm(nrow(efc), 1, .2)
test_that("plot_grpfrq", {
p <- plot_grpfrq(efc$e17age, efc$e16sex)
p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "dot")
p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "line")
p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "boxplot")
p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "violin")
p <- plot_grpfrq(efc$e17age, efc$e16sex, bar.pos = "stack")
p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "boxplot", intr.var = efc$c172code)
p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "violin", intr.var = efc$c172code)
p <- plot_grpfrq(efc$e17age, efc$e16sex, show.values = FALSE)
p <- plot_grpfrq(efc$e17age, efc$e16sex, show.values = FALSE, show.n = TRUE)
p <- plot_grpfrq(efc$e17age, efc$e16sex, show.values = TRUE, show.n = TRUE)
p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "dot", show.values = TRUE, show.n = TRUE)
p <- plot_grpfrq(efc$e17age, efc$e16sex, show.values = TRUE, show.n = TRUE, show.prc = TRUE)
p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "dot", show.values = TRUE, show.n = TRUE, show.prc = TRUE)
p <- plot_grpfrq(efc$e17age, efc$e16sex, show.grpcnt = TRUE)
expect_message(p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "boxplot", show.grpcnt = TRUE))
expect_message(p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "boxplot", intr.var = efc$c172code, show.grpcnt = TRUE))
p <- plot_grpfrq(efc$e42dep, efc$e16sex, type = "bar", show.grpcnt = TRUE)
p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "dot")
p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "dot", show.ci = T)
p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "line", show.ci = T)
p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "boxplot", show.ci = T)
p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "violin", show.ci = T)
p <- plot_grpfrq(efc$e42dep, efc$e16sex, weight.by = efc$gewicht)
p <- plot_grpfrq(efc$e42dep, efc$e16sex, type = "dot", weight.by = efc$gewicht)
p <- plot_grpfrq(efc$e42dep, efc$e16sex, type = "line", weight.by = efc$gewicht)
p <- plot_grpfrq(efc$e42dep, efc$e16sex, type = "boxplot", weight.by = efc$gewicht)
p <- plot_grpfrq(efc$e42dep, efc$e16sex, type = "violin", weight.by = efc$gewicht)
p <- plot_grpfrq(efc$e42dep, efc$e16sex, legend.title = "Geschlecht", legend.labels = c("M", "W"), axis.titles = "Dependency", axis.labels = c("gar nicht", "leicht", "mittel", "schwer"))
p <- plot_grpfrq(efc$e42dep, efc$e16sex, type = "dot", legend.title = "Geschlecht", legend.labels = c("M", "W"), axis.titles = "Dependency", axis.labels = c("gar nicht", "leicht", "mittel", "schwer"))
p <- plot_grpfrq(efc$e42dep, efc$e16sex, type = "line", legend.title = "Geschlecht", legend.labels = c("M", "W"), axis.titles = "Dependency", axis.labels = c("gar nicht", "leicht", "mittel", "schwer"))
p <- plot_grpfrq(efc$e42dep, efc$e16sex, type = "boxplot", legend.title = "Geschlecht", legend.labels = c("M", "W"), axis.titles = "Dependency", axis.labels = c("A", "B"))
p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "violin", legend.title = "Geschlecht", legend.labels = c("M", "W"), axis.titles = "Dependency", axis.labels = c("A", "B"))
})
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.