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

context("wavelets discrete & continuous")

test_that("curvesToContribs behave as expected",
{
#	curvesToContribs(...)
})

test_that("computeWerDists output correct results",
{
	nbytes = 8
	endian = "little"

	# On two identical series
	serie = rnorm(212, sd=5)
	synchrones = cbind(serie, serie)
	dists = computeWerDists(synchrones, 4, nbytes,endian,verbose=TRUE,parll=FALSE)
	expect_equal(dists, matrix(0.,nrow=2,ncol=2))

	# On two constant series
	# TODO:...
})
Commit	Line	Data
	1	context("wavelets discrete & continuous")
	2
	3	test_that("curvesToContribs behave as expected",
	4	{
	5	# curvesToContribs(...)
	6	})
	7
	8	test_that("computeWerDists output correct results",
	9	{
	10	nbytes = 8
	11	endian = "little"
	12
	13	# On two identical series
	14	serie = rnorm(212, sd=5)
	15	synchrones = cbind(serie, serie)
	16	dists = computeWerDists(synchrones, 4, nbytes,endian,verbose=TRUE,parll=FALSE)
	17	expect_equal(dists, matrix(0.,nrow=2,ncol=2))
	18
	19	# On two constant series
	20	# TODO:...
	21	})