revdep/checks.noindex/scan/old/scan.Rcheck/tests/testthat/test-cdc.R

test_that("main", {
  
  res <- cdc(exampleAB_50)
  testsum <- sum(res$cdc_be + res$cdc_b)
  expect_equal(testsum, 1929)
  
  
  res <- cdc(exampleAB_50, trend_method = "trisplit")
  testsum <- sum(res$cdc_be + res$cdc_b)
  expect_equal(testsum, 1915)
  
})
jazznbass/scplot documentation built on April 17, 2025, 3:05 p.m.