characterization test specific to GoF stats

USGS-R · Apr 20, 2017 · 3ca5adf · 3ca5adf
1 parent fb9ab2c
commit 3ca5adf
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/tests/testthat/data/test_calculate_GoF_stats.rds b/tests/testthat/data/test_calculate_GoF_stats.rds
diff --git a/tests/testthat/test_calculate_GoF_stats.R b/tests/testthat/test_calculate_GoF_stats.R
@@ -0,0 +1,14 @@
+context("calculate_GoF_stats")
+library(EflowStats)
+
+test_that("test example returns the same", {
+Gaged <- obs_data
+Gaged$date <- as.Date(Gaged$date)
+Gaged <- dataCheck(Gaged, yearType = "water")
+Modeled<-mod_data
+Modeled$date <- as.Date(Modeled$date)
+Modeled <- dataCheck(Modeled, yearType = "water")
+GoFstats <- calculate_GoF_stats(Modeled,Gaged)
+Gofstats_check <- readRDS("data/test_calculate_GoF_stats.rds")
+expect_equal(GoFstats, Gofstats_check)
+})