Nothing
## 'rr3' ----------------------------------------------------------------------
test_that("rr3 rounds appropriately", {
set.seed(0)
x <- round(rnorm(n = 1000, mean = 0, sd = 3))
x[6] <- NA
ans <- rr3(x)
expect_true(all(ans[-6] %% 3 == 0))
expect_true(is.na(ans[6]))
is_mod3 <- !is.na(x) & (x %% 3 == 0)
expect_true(all(ans[is_mod3] == x[is_mod3]))
expect_equal(sum(x), sum(ans))
is_le_0 <- x <= 0
expect_true(all(ans[is_le_0] <= 0, na.rm = TRUE))
is_ge_0 <- x >= 0
expect_true(all(ans[is_ge_0] >= 0, na.rm = TRUE))
})
test_that("rr3 leaves type unchanged", {
expect_true(is.integer(rr3(c(1:5, NA))))
expect_true(is.double(rr3(c(1:5, NA_real_))))
})
test_that("rr3 throws correct error with non-integer", {
expect_error(rr3(c(1, 2, 1.1)),
"`x` has non-integer values.")
})
test_that("rr3 throws correct error with value too large", {
expect_error(rr3(c(1, 2, .Machine$integer.max + 1)),
"Maximum value in `x` greater than largest integer that can be represented on this machine.")
})
test_that("rr3 works with rvec", {
x <- matrix(round(rnorm(n = 1000, mean = 5, sd = 3)), nrow = 10)
x <- rvec::rvec(x)
ans <- rr3(x)
ans <- as.numeric(ans)
expect_true(all(ans %% 3 == 0))
x[2] <- NA
ans <- rr3(x)
ans <- as.numeric(ans)
expect_true(all(ans %% 3 == 0, na.rm = TRUE))
})
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.