Nothing
class = c(rep("a", 10), rep("b", 3))
ref = c(rep("b", 4), rep("a", 9))
map = relabel_class(class, ref)
attr(map, "df") = NULL
test_that("test relabel", {
expect_equal(map, c("a" = "b", "b" = "a"))
})
adjusted = relabel_class(class, ref, return_map = FALSE)
test_that("test relabel", {
expect_equal(adjusted, unname(map[class]))
})
class = c(rep("a", 9), rep("b", 3), "c")
ref = c(rep("b", 4), rep("a", 9))
map = relabel_class(class, ref)
attr(map, "df") = NULL
test_that("test relabel", {
expect_equal(map, c("a" = "b", "b" = "a", "c" = "c"))
})
class = c(rep("a", 9), rep("b", 4))
ref = c(rep("b", 4), rep("a", 8), "c")
map = relabel_class(class, ref)
attr(map, "df") = NULL
test_that("test relabel", {
expect_equal(map, c("a" = "b", "b" = "a", "c" = "c"))
})
class = c(rep("a", 10), rep("b", 3))
ref = c(rep("b", 4), rep("a", 9))
map = relabel_class(class, ref, full_set = c("a", "b", "c"))
attr(map, "df") = NULL
test_that("test relabel", {
expect_equal(map, c("a" = "b", "b" = "a", "c" = "c"))
})
class = c(rep(1, 10), rep(2, 3))
ref = c(rep(2, 4), rep(1, 9))
map = relabel_class(class, ref)
adjusted = relabel_class(class, ref, return_map = FALSE)
test_that("test relabel", {
expect_equal(adjusted, unname(as.numeric(map[class])))
})
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.