Nothing
if (helper_skip()) {
library(ggPMX)
ctr <- theophylline()
context("Test pmx_plot_eta_box function")
#------------------- pmx_plot_eta_box start ------------------------------------------
test_that("pmx_plot_eta_box: params: ctr, ...; result: ggplot", {
p <- ctr %>% pmx_plot_eta_box(shrink=list(fun="sd"))
expect_true(inherits(p, "ggplot"))
})
test_that("pmx_plot_eta_box: params: ctr, ...; result: error", {
expect_error(ctr %>% pmx_plot_eta_box(shrink=list("sd")))
})
#------------------- pmx_plot_eta_box end ------------------------------------------
}
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.