tests/testthat/test_phi.R
In Ironholds/primes: Fast Functions for Prime Numbers
context("Euler's totient")
test_that("phi matches reference values", {
expect_equal(phi(9), 6L)
expect_equal(phi(120:125), c(32L,110L,60L,80L,60L,100L))
# Ironholds/primes#14
expect_equal(phi(c(451,737,803,902)), c(400L, 660L, 720L, 400L))
expect_equal(phi(c(9460L, 9713L, 9782L, 9977L)), c(3360L, 8820L, 4752L, 9060L))
})
Ironholds/primes documentation built on Feb. 1, 2024, 1:26 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("Euler's totient")
test_that("phi matches reference values", {
expect_equal(phi(9), 6L)
expect_equal(phi(120:125), c(32L,110L,60L,80L,60L,100L))
# Ironholds/primes#14
expect_equal(phi(c(451,737,803,902)), c(400L, 660L, 720L, 400L))
expect_equal(phi(c(9460L, 9713L, 9782L, 9977L)), c(3360L, 8820L, 4752L, 9060L))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.