tests/testthat/tests_mag7Stats.R

context("mag7 stats")

test_that("mag7 stats", {
        x<-sampleData[c("date","discharge")]
        
        magSevenOutTest <- calc_magnifSeven(x)
        magSevenOut <- readRDS("data/tests_mag7Stats.rds")
        
        expect_equal(magSevenOutTest,magSevenOut)
})
USGS-R/EflowStats documentation built on Sept. 30, 2023, 9:31 p.m.