tests/testthat/test-cdfe.R

In triangle: Distribution Functions and Parameter Estimates for the Triangle Distribution

test_that("triangle_cdfe works", {
  set.seed(10304)
  xtest <- rtriangle(100, 1, 5, 2)
  cdfe <- triangle_cdfe(xtest)

  expect_equal("nls", class(cdfe))
  expect_output(print(cdfe))
  expect_output(print(summary(cdfe)))
  expect_equal(3, length(coef(cdfe)))
  expect_true(coef(cdfe)[1] < coef(cdfe)[2])
  expect_true(coef(cdfe)[1] <= min(xtest))
  expect_true(coef(cdfe)[2] >= max(xtest))
  expect_true(coef(cdfe)[3] <= coef(cdfe)[2])
  expect_true(coef(cdfe)[3] >= coef(cdfe)[1])
  expect_true(coef(cdfe)[3] >= min(xtest))
  expect_true(coef(cdfe)[3] <= max(xtest))

  if (requireNamespace("MASS", quietly = TRUE)) expect_equal(c(3, 2), dim(confint(cdfe)))
})