projects
/
morpheus.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Adjustments + bugs fixing
[morpheus.git]
/
pkg
/
tests
/
testthat
/
test-computeMu.R
diff --git
a/pkg/tests/testthat/test-computeMu.R
b/pkg/tests/testthat/test-computeMu.R
index
ba1de74
..
c1fd4f9
100644
(file)
--- a/
pkg/tests/testthat/test-computeMu.R
+++ b/
pkg/tests/testthat/test-computeMu.R
@@
-1,5
+1,3
@@
-context("computeMu")
-
test_that("on input of sufficient size, β/||β|| is estimated accurately enough",
{
n <- 100000
test_that("on input of sufficient size, β/||β|| is estimated accurately enough",
{
n <- 100000
@@
-28,8
+26,8
@@
test_that("on input of sufficient size, β/||β|| is estimated accurately enough
diff_norm <- norm(μ_ref - μ_aligned)
cat(diff_norm,"\n")
diff_norm <- norm(μ_ref - μ_aligned)
cat(diff_norm,"\n")
- #NOTE: 0.5 is loose threshold, but values around 0.3 are expected...
- expect_
that( diff_norm, is_less_than(0.5)
)
+ #
NOTE: 0.5 is loose threshold, but values around 0.3 are expected...
+ expect_
lt( diff_norm, 0.5
)
}
}
})
}
}
})