https://github.com/cran/pracma
Revision e2512490ec9e26c0bfb230f9fd97bcf07cc8c07b authored by Hans W. Borchers on 10 November 2023, 00:10:02 UTC, committed by cran-robot on 10 November 2023, 03:30:53 UTC
1 parent 85eeff7
Tip revision: e2512490ec9e26c0bfb230f9fd97bcf07cc8c07b authored by Hans W. Borchers on 10 November 2023, 00:10:02 UTC
version 2.4.4
version 2.4.4
Tip revision: e251249
nthroot.R
###
### NTHROOT.R +++ Test suite +++
###
test.nthroot <- function(input, expected) {
output <- do.call(getFromNamespace("nthroot", "pracma"), input)
identical(output, expected)
}
nthroot.expected.n0 <- c(-1.2)
nthroot.expected.n1 <- c(1, -2, 3)
nthroot.expected.n2 <- c(1, 0, 3)
nthroot.expected.n3 <- c(1, -2, 3)
test.nthroot(list(x=-1.2^5, n=5), nthroot.expected.n0)
test.nthroot(list(x=c(1,-2, 3), n=1), nthroot.expected.n1)
test.nthroot(list(x=c(1, 0, 9), n=2), nthroot.expected.n2)
test.nthroot(list(x=c(1,-8,27), n=3), nthroot.expected.n3)
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...