tests/testthat/test-ParamCop.R

test_that("Parametric copula fit", {

  #Check summary table
  #expect_message(fitPar)

  # check the scale and dependency parameter are positive

  expect_true(all(fitPar[,6]>=0))
  expect_equal(rownames(fitPar)[2], "frank")
})

Try the depCensoring package in your browser

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

depCensoring documentation built on April 4, 2025, 1:52 a.m.