tests/testthat/test-estimateSOZ.R

data("pt01Frag")

test_that("estimateSOZ", {
  estimateSOZ(pt01Frag) |> expect_no_error()
  estimateSOZ(pt01Frag, "max") |> expect_no_error()
  estimateSOZ(pt01Frag, "min") |> expect_no_error()
  estimateSOZ(pt01Frag, proportion = 0.2) |> expect_no_error()
})

Try the EZFragility package in your browser

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

EZFragility documentation built on April 12, 2025, 1:22 a.m.