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-jointDiag.R
diff --git
a/pkg/tests/testthat/test-jointDiag.R
b/pkg/tests/testthat/test-jointDiag.R
index
619c9b6
..
76eb839
100644
(file)
--- a/
pkg/tests/testthat/test-jointDiag.R
+++ b/
pkg/tests/testthat/test-jointDiag.R
@@
-1,5
+1,3
@@
-context("jointDiag::ajd")
-
#auxiliary to test diagonality
.computeMuCheckDiag = function(X, Y, K, jd_method, β_ref)
{
#auxiliary to test diagonality
.computeMuCheckDiag = function(X, Y, K, jd_method, β_ref)
{
@@
-24,9
+22,9
@@
context("jointDiag::ajd")
for (i in 1:K)
{
shouldBeDiag <- invβ %*% M2_t[,,i] %*% t(invβ)
for (i in 1:K)
{
shouldBeDiag <- invβ %*% M2_t[,,i] %*% t(invβ)
- expect_
tha
t(
+ expect_
l
t(
mean( abs(shouldBeDiag[upper.tri(shouldBeDiag) | lower.tri(shouldBeDiag)]) ),
mean( abs(shouldBeDiag[upper.tri(shouldBeDiag) | lower.tri(shouldBeDiag)]) ),
-
is_less_than(max_error)
)
+
max_error
)
}
}
}
}