X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=epclust%2Ftests%2Ftestthat%2Ftest.filter.R;fp=epclust%2Ftests%2Ftestthat%2Ftest.filter.R;h=0000000000000000000000000000000000000000;hb=40f12a2f66d06fd77183ea02b996f5c66f90761c;hp=8dda50e98ef9a79c93c26d9187bce64e3b41ce95;hpb=a52836b23adb4bfa6722642ec6426fb7b5f39650;p=epclust.git

diff --git a/epclust/tests/testthat/test.filter.R b/epclust/tests/testthat/test.filter.R
deleted file mode 100644
index 8dda50e..0000000
--- a/epclust/tests/testthat/test.filter.R
+++ /dev/null
@@ -1,17 +0,0 @@
-context("filterMA")
-
-test_that("[time-]serie filtering behave as expected",
-{
-	# Currently just a mean of 3 values
-	M = matrix(runif(1000,min=-7,max=7), ncol=10)
-	ref_fM = stats::filter(M, c(1/3,1/3,1/3), circular=FALSE)
-	fM = epclust:::filterMA(M)
-
-	# Expect an agreement on all inner values
-	expect_equal(dim(fM), c(100,10))
-	expect_equal(fM[2:99,], ref_fM[2:99,])
-
-	# Border values should be unchanged
-	expect_equal(fM[1,], M[1,])
-	expect_equal(fM[100,], M[100,])
-})