X-Git-Url: https://git.auder.net/images/pieces/Cwda/bg.svg?a=blobdiff_plain;f=epclust%2Ftests%2Ftestthat%2Ftest.filter.R;h=8dda50e98ef9a79c93c26d9187bce64e3b41ce95;hb=a52836b23adb4bfa6722642ec6426fb7b5f39650;hp=9d1916dbc1d98a58149c4c46ef84c173a06e09bb;hpb=0486fbadb122cb4d78c5d9f248c29800a59eb24e;p=epclust.git

diff --git a/epclust/tests/testthat/test.filter.R b/epclust/tests/testthat/test.filter.R
index 9d1916d..8dda50e 100644
--- a/epclust/tests/testthat/test.filter.R
+++ b/epclust/tests/testthat/test.filter.R
@@ -1,18 +1,17 @@
-context("epclustFilter")
+context("filterMA")
 
-#TODO: find a better name
 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:::.epclustFilter(M)
+	fM = epclust:::filterMA(M)
 
-	#Expect an agreement on all inner values
+	# Expect an agreement on all inner values
 	expect_equal(dim(fM), c(100,10))
-	expect_equal(fM[2:99,], ref_fM[,2:99])
+	expect_equal(fM[2:99,], ref_fM[2:99,])
 
-	#For border values, just apply a "by-hand" mean
-	expect_equal(fM[1,], colMeans(rbind(M[1,],M[2,],M[100,])))
-	expect_equal(fM[100,], colMeans(rbind(M[100,],M[99,],M[1,])))
-}
+	# Border values should be unchanged
+	expect_equal(fM[1,], M[1,])
+	expect_equal(fM[100,], M[100,])
+})