projects / epclust.git / blame
| Commit | Line | Data |
|---|---|---|
| 40f12a2f | 1 | context("computeWerDists") |
| d9bb53c5 BA |
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 | synchrones = cbind(serie, serie) | |
| a52836b2 | 11 | dists = computeWerDists(synchrones, 4, nbytes,endian,verbose=TRUE,parll=FALSE) |
| d9bb53c5 BA |
12 | expect_equal(dists, matrix(0.,nrow=2,ncol=2)) |
| 13 | ||
| 14 | # On two constant series | |
| 15 | # TODO:... | |
| 16 | }) | |
| 40f12a2f | 17 |