tests/testthat/test_calculate_GoF_summary_stats.R

In USGS-R/NWCCompare: Returns NWC comparison stats for two daily data sets

context("calculate_GoF_summary_stats")

test_that("example for characterization", {
  Gaged <- obs_data
  Gaged$date <- as.Date(Gaged$date)
  Gaged <- validate_data(Gaged, yearType = "water")
  Modeled<-mod_data
  Modeled$date <- as.Date(Modeled$date)
  Modeled <- validate_data(Modeled, yearType = "water")
  statsout <- calculate_GoF_summary_stats(Gaged,Modeled)
  statsout_check <- readRDS("data/test_calculate_GoF_summary_stats.rds")
  expect_equal(statsout, statsout_check)
})