tests/testthat/test-GOF.R

In rpkgs/gg.layers: ggplot layers

test_that("GOF works", {
    Y_obs <- c(1, 3, 4, 2, NA, 6)
    Y_sim <- c(2, 2, 4, 1, NA, 5)
    w     <- c(1, 1, 1, 0.5, 1, 1)

    expect_silent(GOF(Y_obs, Y_sim, w, include.cv = T))
    expect_equal(GOF(Y_obs, Y_sim, w)[["NSE"]], NSE(Y_obs, Y_sim, w))
    expect_equal(GOF(Y_obs, Y_sim)[["NSE"]], NSE(Y_obs, Y_sim))

    I <- 3:5
    expect_message(GOF(Y_obs[I], Y_sim[I], w[I], include.cv = T, include.r = T),
        "not enough finite observations")

    I <- 5 # NA value test
    expect_true(all(is.na(GOF(Y_obs[I], Y_sim[I], w[I], include.cv = T))))
})