-context("computeMu")
-
test_that("on input of sufficient size, β/||β|| is estimated accurately enough",
{
n <- 100000
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 )
}
}
})