tests/testthat/test_acti.R

In CoSMoS: Complete Stochastic Modelling Solution

test_that("test auto-correlation transformation integral and fit", {
  expect_equal(acti(1, 1, "norm", list(), .2, 0), 0.0705,
    tolerance = 0.05
  )

  dist <- "paretoII"
  distarg <- list(scale = 1, shape = .3)

  pnts <- actpnts(
    margdist = dist,
    margarg = distarg,
    p0 = 0
  )

  expect_equal(unlist(pnts[c(1, dim(pnts)[1]), ]), c(rhoz = c(0.10, 0.95), rhox = c(0.0549, 0.9134)),
    tolerance = 0.05
  )

  expect_equal(fitactf(pnts)$`actfcoef`, c(b = 1.6154, c = 1.2813),
    tolerance = 0.05
  )

  expect_error(pnts <- actpnts(
    margdist = "gammma", ## misspelled dist
    margarg = distarg,
    p0 = 0
  ))
})