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,]) })