tests/testthat/test-iwls.R

#context("iwls")

# Check that iwls() works (on the newlyn data) over a range of thresholds

u <- stats::quantile(newlyn, probs = seq(0.1, 0.9, by = 0.1))

for (i in 1:length(u)) {
  res <- iwls(newlyn, u[i])
  test_that("iwls works", {
    testthat::expect_identical(res$conv, 0)
  })
}

Try the exdex package in your browser

Any scripts or data that you put into this service are public.

exdex documentation built on May 29, 2024, 2:15 a.m.