[epclust.git] / epclust / tests / testthat / test-computeWerDists.R

context("computeWerDists")

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

	# On two identical series
	serie <- rnorm(212, sd=5)
	series <- cbind(serie, serie)
	getSeries <- function(indices) as.matrix(series[,indices])
	dists <- computeWerDists(1:2, getSeries, 50, 3, 4, nbytes, endian,
		verbose=TRUE, parll=FALSE)
	expect_equal(dists, matrix(0.,nrow=2,ncol=2))

	# On two constant series
	# TODO: ref results. Ask Jairo to check function.
})
Commit	Line	Data
40f12a2f	1	context("computeWerDists")
d9bb53c5 BA	2
	3	test_that("computeWerDists output correct results",
	4	{
282342ba BA	5	nbytes <- 8
282342ba BA	6	endian <- "little"
d9bb53c5 BA	7
d9bb53c5 BA	8	# On two identical series
282342ba BA	9	serie <- rnorm(212, sd=5)
	10	series <- cbind(serie, serie)
	11	getSeries <- function(indices) as.matrix(series[,indices])
	12	dists <- computeWerDists(1:2, getSeries, 50, 3, 4, nbytes, endian,
	13	verbose=TRUE, parll=FALSE)
d9bb53c5 BA	14	expect_equal(dists, matrix(0.,nrow=2,ncol=2))
	15
	16	# On two constant series
282342ba	17	# TODO: ref results. Ask Jairo to check function.
d9bb53c5	18	})