tests/testthat/test-ReverseCode.R
In lin-jennifer/lin: Jennifer Lin's Collection of Functions
x1 <- c(0, 1, 2, NA, 4, 7)
test_that("reverse code with 0 works", {
expect_equal(reverse_code(x1), c(7, 6, 5, NA, 3, 0))
})
x2 <- c(1, 2, 3, 4, NA, 5)
test_that("reverse code without 0 works", {
expect_equal(reverse_code(x2), c(5, 4, 3, 2, NA, 1))
})
lin-jennifer/lin documentation built on Jan. 1, 2021, 8:21 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.
x1 <- c(0, 1, 2, NA, 4, 7)
test_that("reverse code with 0 works", {
expect_equal(reverse_code(x1), c(7, 6, 5, NA, 3, 0))
})
x2 <- c(1, 2, 3, 4, NA, 5)
test_that("reverse code without 0 works", {
expect_equal(reverse_code(x2), c(5, 4, 3, 2, NA, 1))
})
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.