projects
/
epclust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
code seems OK; still wavelets test to write
[epclust.git]
/
epclust
/
tests
/
testthat
/
test.wavelets.R
diff --git
a/epclust/tests/testthat/test.wavelets.R
b/epclust/tests/testthat/test.wavelets.R
index
96f9db3
..
f29312d
100644
(file)
--- a/
epclust/tests/testthat/test.wavelets.R
+++ b/
epclust/tests/testthat/test.wavelets.R
@@
-2,7
+2,7
@@
context("wavelets discrete & continuous")
test_that("curvesToContribs behave as expected",
{
test_that("curvesToContribs behave as expected",
{
-
curvesToContribs(...)
+
#
curvesToContribs(...)
})
test_that("computeWerDists output correct results",
})
test_that("computeWerDists output correct results",
@@
-13,7
+13,7
@@
test_that("computeWerDists output correct results",
# On two identical series
serie = rnorm(212, sd=5)
synchrones = cbind(serie, serie)
# On two identical series
serie = rnorm(212, sd=5)
synchrones = cbind(serie, serie)
- dists = computeWerDists(synchrones, nbytes,endian,verbose=TRUE,parll=FALSE)
+ dists = computeWerDists(synchrones,
4,
nbytes,endian,verbose=TRUE,parll=FALSE)
expect_equal(dists, matrix(0.,nrow=2,ncol=2))
# On two constant series
expect_equal(dists, matrix(0.,nrow=2,ncol=2))
# On two constant series