Nothing
# Tests for tidy format translators
#
# Author: mjskay
###############################################################################
library(dplyr)
test_that("ggmcmc translators work", {
data("RankCorr_u_tau", package = "ggdist")
orig = RankCorr_u_tau %>%
dplyr::rename(.variable = i, .value = u_tau) %>%
group_by(.variable)
result = orig %>%
to_ggmcmc_names()
expect_equal(names(result), c("Parameter", "value", "Chain", "Iteration", ".draw"))
expect_equal(group_vars(result), "Parameter")
expect_equal(from_ggmcmc_names(result), orig)
})
test_that("broom translators work", {
data("RankCorr_u_tau", package = "ggdist")
orig = RankCorr_u_tau %>%
dplyr::rename(.variable = i, .value = u_tau) %>%
group_by(.variable) %>%
median_qi(.value)
result = orig %>%
to_broom_names()
expect_equal(names(result), c("term", "estimate", "conf.low", "conf.high", ".width", ".point", ".interval"))
expect_equal(from_broom_names(result), orig)
})
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.