tests/testthat/test-anlz_prdday.R

test_that("Checking anlz_prdday", {
  
  result <- anlz_prdday(mod) %>% 
    dplyr::pull(value) %>% 
    .[1:4] %>% 
    round(1)
  
  expect_equal(result, c(6.3, 6.3, 6.3, 6.3))
  
})

Try the wqtrends package in your browser

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

wqtrends documentation built on Sept. 11, 2024, 9:04 p.m.