diff --git a/tests/testthat/test-CST_MultivarRMSE.R b/tests/testthat/test-CST_MultivarRMSE.R index c4ca5d5fb2491bbc4b5759c9fe1abd97719b6ab4..b9f93f6862a42efe4c956608f17b8b33c761cd9e 100644 --- a/tests/testthat/test-CST_MultivarRMSE.R +++ b/tests/testthat/test-CST_MultivarRMSE.R @@ -151,9 +151,9 @@ test_that("2. Output checks", { res2 <- CST_MultivarRMSE(exp = ano_exp, obs = ano_obs, weight = c(1, 2), dat_dim = 'datasets', ftime_dim = 'ftimes', memb_dim = 'members', sdate_dim = 'sdates') - # res3 <- CST_MultivarRMSE(exp = ano_exp, obs = ano_obs, weight = c(1, 2), - # dat_dim = NULL, ftime_dim = 'ftimes', - # memb_dim = 'members', sdate_dim = 'sdates') + res3 <- CST_MultivarRMSE(exp = ano_exp, obs = ano_obs, weight = c(1, 2), + dat_dim = NULL, ftime_dim = 'ftimes', + memb_dim = 'members', sdate_dim = 'sdates') expect_equal( names(res1), c('data', 'coords', 'attrs') @@ -180,13 +180,13 @@ test_that("2. Output checks", { c(0.9184747, 1.0452328, 1.7559577, 0.7936543, 0.9163216), tolerance = 0.0001 ) - # expect_equal( - # dim(res3$data), - # c(datasets = 1, lat = 6, lon = 7) - # ) - # expect_equal( - # as.vector(res3$data)[1:5], - # c(0.9184747, 1.0452328, 1.7559577, 0.7936543, 0.9163216), - # tolerance = 0.0001 - # ) + expect_equal( + dim(res3$data), + c(datasets = 1, lat = 6, lon = 7) + ) + expect_equal( + as.vector(res3$data)[1:5], + c(0.9184747, 1.0452328, 1.7559577, 0.7936543, 0.9163216), + tolerance = 0.0001 + ) })