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)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.