Nothing
skip_on_cran()
test_that("add_p.tbl_continuous() works", {
expect_snapshot(
tbl_continuous(
data = trial,
variable = age,
by = trt,
include = grade
) %>%
add_p() %>%
as.data.frame()
)
expect_snapshot(
tbl_continuous(
data = trial,
variable = age,
include = grade
) %>%
add_p() %>%
as.data.frame()
)
expect_snapshot(
tbl_continuous(
data = trial,
variable = age,
include = trt
) %>%
add_p(everything() ~ "t.test") %>%
as.data.frame()
)
expect_snapshot(
tbl_continuous(
data = trial,
variable = age,
include = trt
) %>%
add_p(everything() ~ "wilcox.test") %>%
as.data.frame()
)
expect_snapshot(
tbl_continuous(
data = trial,
variable = age,
include = trt
) %>%
add_p(everything() ~ "lme4", group = "stage") %>%
as.data.frame()
)
expect_message(
tbl_continuous(
data = trial,
variable = age,
include = trt,
by = grade
) %>%
add_p(everything() ~ "wilcox.test")
)
expect_error(
tbl_continuous(
data = trial,
variable = age,
include = trt,
by = grade
) %>%
add_p(everything() ~ "wilcox.test.NOT.A.TEST") %>%
as.data.frame()
)
})
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.