library (surveyreader)
library(testthat)
context("Convert better-worse trend variables.")
test_that("correct conversion takes place", {
expect_equal(rescale_better_worse_3 (column =
c("Better",
"Worse",
"Same",
"The same",
"DK", "NA"),
underscore = FALSE,
return_class = "character"),
c("better", "worse", "same", "same", NA, NA)
)
expect_equal(rescale_better_worse_3 (column =
c("Better",
"Worse",
"Same",
"The same",
"DK", "NA"),
return_class = "numeric"),
c(1,-1,0,0,NA,NA)
)
})
test_that("correct Hungarian conversion takes place", {
expect_equal(rescale_better_worse_3 (column =
c("NT/NV",
"Ugyanolyan lesz",
"Jobb lesz",
"Rosszabb lesz",
"NA - nem tudja"),
from = "hu",
na_labels = "hu",
return_class = "numeric"),
c(NA, 0, 1,-1,NA)
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.