diff --git a/tests/testthat/test-Corr.R b/tests/testthat/test-Corr.R index d1694f92975500b1060b28db3da7964909ebf9c4..ca694e04fed15e88c5745e97718c2e30b54c550c 100644 --- a/tests/testthat/test-Corr.R +++ b/tests/testthat/test-Corr.R @@ -111,7 +111,7 @@ test_that("2. Output checks: dat1", { c(n_exp = 2, n_obs = 1, dataset = 1, ftime = 3, lat = 2, lon = 4) ) expect_equal( - head(Corr(exp1, obs1)$corr), + Corr(exp1, obs1)$corr[1:6], c(0.11503859, -0.46959987, -0.64113021, 0.09776572, -0.32393603, 0.27565829), tolerance = 0.001 ) @@ -150,7 +150,7 @@ test_that("2. Output checks: dat1", { 3 ) expect_equal( - head(Corr(exp1, obs1, method = 'spearman')$corr), + Corr(exp1, obs1, method = 'spearman')$corr[1:6], c(-0.3, -0.4, -0.6, 0.3, -0.3, 0.2) ) expect_equal( diff --git a/tests/testthat/test-RMS.R b/tests/testthat/test-RMS.R index 9394d5ab3d8e5963180b85cd6cd7bded2ce8cf90..b5a1b994bdfe55f9e4f81d366ec5295d9ef66a90 100644 --- a/tests/testthat/test-RMS.R +++ b/tests/testthat/test-RMS.R @@ -103,7 +103,7 @@ test_that("2. Output checks: dat1", { c(n_exp = 3, n_obs = 2, ftime = 2, lon = 1, lat = 4) ) expect_equal( - head(RMS(exp1, obs1)$rms), + RMS(exp1, obs1)$rms[1:6], c(1.2815677, 2.0832803, 1.1894637, 1.3000403, 1.4053807, 0.8157563), tolerance = 0.001 ) diff --git a/tests/testthat/test-Regression.R b/tests/testthat/test-Regression.R index fd5314222027306166efd56b1b726948f41326fe..69c4f9edd5eafa7561c565f9df80f3ce50079dc5 100644 --- a/tests/testthat/test-Regression.R +++ b/tests/testthat/test-Regression.R @@ -105,7 +105,7 @@ test_that("2. Output checks: dat1", { c(stats = 2, ftime = 2, lon = 2, lat = 4) ) expect_equal( - head(Regression(datay1, datax1)$regression), + Regression(datay1, datax1)$regression[1:6], c(-39.0091480, 0.7290814, -39.1853129, 0.8623175, -37.4342099, 0.7844530), tolerance = 0.001 )