[epclust.git] / pkg / 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)
	expect_equal(dists, matrix(0.,nrow=2,ncol=2))

	# On two constant series
	# TODO: ref results. Ask Jairo to check function.
})
Commit	Line	Data
b7cd987d BA	1	context("computeWerDists")
	2
	3	test_that("computeWerDists output correct results",
	4	{
	5	nbytes <- 8
	6	endian <- "little"
	7
	8	# On two identical series
	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)
	14	expect_equal(dists, matrix(0.,nrow=2,ncol=2))
	15
	16	# On two constant series
	17	# TODO: ref results. Ask Jairo to check function.
	18	})