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)
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)