Commit | Line | Data |
---|---|---|
0486fbad | 1 | context("epclustFilter") |
6ad3f3fd | 2 | |
0486fbad BA |
3 | #TODO: find a better name |
4 | test_that("[time-]serie filtering behave as expected", | |
5 | { | |
6 | # Currently just a mean of 3 values | |
7 | M = matrix(runif(1000,min=-7,max=7), ncol=10) | |
8 | ref_fM = stats::filter(M, c(1/3,1/3,1/3), circular=FALSE) | |
0fe757f7 | 9 | fM = epclust:::epclustFilter(M) |
0486fbad BA |
10 | |
11 | #Expect an agreement on all inner values | |
12 | expect_equal(dim(fM), c(100,10)) | |
0fe757f7 | 13 | expect_equal(fM[2:99,], ref_fM[2:99,]) |
0486fbad | 14 | |
0fe757f7 BA |
15 | #Border values should be unchanged |
16 | expect_equal(fM[1,], M[1,]) | |
17 | expect_equal(fM[100,], M[100,]) | |
18 | }) |