tests/testthat/test-wrs2.R

In parameters: Processing of Model Parameters

skip_if_not_installed("WRS2")
data(viagra, package = "WRS2")
data(WineTasting, package = "WRS2")
data(spider, package = "WRS2")

# model_parameters.t1way ---------------------------------------------------

test_that("model_parameters.t1way", {
  set.seed(123)
  df_b <- model_parameters(WRS2::t1way(libido ~ dose, data = viagra))

  set.seed(123)
  df_w <- model_parameters(WRS2::rmanova(WineTasting$Taste, WineTasting$Wine, WineTasting$Taster))
})

# model_parameters.yuen ---------------------------------------------------

test_that("model_parameters.yuen", {
  set.seed(123)
  df_b <- model_parameters(WRS2::yuen(Anxiety ~ Group, data = spider))

  before <- c(190, 210, 300, 240, 280, 170, 280, 250, 240, 220)
  after <- c(210, 210, 340, 190, 260, 180, 200, 220, 230, 200)
  set.seed(123)
  df_w <- model_parameters(WRS2::yuend(before, after))
})

# model_parameters.mcp and robtab ---------------------------------------

test_that("model_parameters.mcp and robtab", {
  set.seed(123)
  df_b <- model_parameters(WRS2::lincon(libido ~ dose, data = viagra))

  set.seed(123)
  df_w <- model_parameters(WRS2::rmmcp(WineTasting$Taste, WineTasting$Wine, WineTasting$Taster))

  set.seed(123)
  df <- model_parameters(WRS2::discmcp(libido ~ dose, viagra, nboot = 100))
})

# model_parameters.akp.effect -----------------------------------------------

test_that("model_parameters.AKP", {
  set.seed(123)
  mod <- WRS2::akp.effect(
    formula = wt ~ am,
    data = mtcars,
    EQVAR = FALSE
  )
})


# model_parameters.onesampb ---------------------------------------------------

test_that("model_parameters.onesampb", {
  set.seed(123)
  x <- rnorm(30)

  set.seed(123)
  mod <- WRS2::onesampb(x, nboot = 100)
})