Skip to content

Commit

Permalink
Need to update this "snapshot" too now that we use compensated Horner.
Browse files Browse the repository at this point in the history
  • Loading branch information
aadler committed Aug 23, 2023
1 parent 86ab976 commit b19adac
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions inst/tinytest/test_shared.R
Original file line number Diff line number Diff line change
Expand Up @@ -124,8 +124,8 @@ r <- minimaxApprox:::findRoots(x, PP, fn, FALSE)
x <- minimaxApprox:::switchX(r, -1, 1, PP, fn, FALSE)
expect_equal(x, control, tolerance = 3e-7) # GitHub Actions complain otherwise
## Rational
control <- c(-1, -0.67069346181121259, -6.9988944598198266e-08,
0.67069355653042717, 1)
control <- c(-1, -0.67069346181183143, -6.9989028975148138e-08,
0.67069355653023088, 1)
fn <- function(x) ifelse(abs(x) < 1e-20, 1, sin(x) / x)
x <- minimaxApprox:::chebNodes(5, -1, 1)
RR <- minimaxApprox:::ratCoeffs(x, 0, fn, 2L, 1L, FALSE)
Expand Down

0 comments on commit b19adac

Please sign in to comment.