tests/testthat/test-pmx-plots-distribution.R

In ggPMXdevelopment/ggPMX: 'ggplot2' Based Tool to Facilitate Diagnostic Plots for NLME Models

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 ------------------------------------------
}