[epclust.git] / epclust / tests / testthat / test.filter.R

context("epclustFilter")

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

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