Nothing
context("testing eulerPhiSieve")
test_that("eulerPhiSieve generates correct numbers", {
options(scipen = 50)
individualEulerPhi <- function(b1, b2) {
r <- b1:b2
p <- primeFactorizeSieve(b1, b2)
sapply(seq_along(r), function(x) {
uni <- unique(p[[x]])
prod(uni - 1) * r[x] / prod(uni)
})
}
expect_equal(eulerPhiSieve(1e4), c(1, individualEulerPhi(2, 1e4)))
expect_equal(eulerPhiSieve(1e13, 1e13 + 1e4),
individualEulerPhi(1e13, 1e13 + 1e4))
expect_equal(eulerPhiSieve(10)[10], 4)
expect_equal(length(eulerPhiSieve(1000)), 1000)
expect_equal(eulerPhiSieve(2), c(1, 1))
expect_equal(eulerPhiSieve(2, 3), c(1, 2))
expect_true(eulerPhiSieve(1, 1, TRUE)==1)
expect_true(eulerPhiSieve(1L, namedVector = TRUE)==1)
expect_equal(eulerPhiSieve(11, 20), c(10, 4, 12, 6, 8, 8, 16, 6, 18, 8))
expect_equal(eulerPhiSieve(1e13, 1e13), 4000000000000)
## Test Names
expect_equal(as.integer(names(eulerPhiSieve(100, namedVector = TRUE))), 1:100)
expect_equal(as.numeric(names(eulerPhiSieve(10^12, 10^12 + 100,
namedVector = TRUE))), (10^12):(10^12 + 100))
## Parallel tests
expect_equal(eulerPhiSieve(198, 2e5, nThreads = 3), eulerPhiSieve(198, 2e5))
expect_equal(eulerPhiSieve(2e5, nThreads = 2), eulerPhiSieve(2e5))
expect_equal(eulerPhiSieve(1e12, 1e12 + 1e6, nThreads = 2),
eulerPhiSieve(1e12, 1e12 + 1e6))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.