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

test_that("fill_missing", {
  scdf <- fill_missing(Grosche2011)
  values <- round(sum(unlist(lapply(scdf, function(x) x$values))),4)
  expect_equal(values, 1831.035)
})
jazznbass/scplot documentation built on April 17, 2025, 3:05 p.m.