mirror of
https://github.com/agdamsbo/stRoke.git
synced 2024-11-25 06:01:54 +01:00
9 lines
342 B
R
9 lines
342 B
R
|
# Unit Test - gpttools
|
||
|
|
|
||
|
|
test_that("ci_plot produces a valid plot", {
|
||
|
|
data(talos)
|
||
|
|
talos[,"mrs_1"]<-factor(talos[,"mrs_1"],ordered=TRUE)
|
||
|
|
talos$bin <- factor(sample(1:2, size = nrow(talos), replace = TRUE))
|
||
|
|
testthat::expect_true(inherits(ci_plot(ds = talos, x = "rtreat", y = "mrs_1", vars = c("hypertension","diabetes")), "ggplot"))
|
||
|
|
})
|