Nothing
ln <- label_normalize (
x = c("Don't know", " TRUST", "DO NOT TRUST",
"inap in Q.3", "Not 100%", "TRUST < 50%",
"TRUST >=90%", "Verify & Check", "TRUST 99%+")
)
vrn <- var_label_normalize (
c("Q1_Do you trust the national government?",
" Do you trust the European Commission")
)
vrn
vln <- val_label_normalize (
c("Q1_Do you trust the national government?",
" Do you trust the European Commission")
)
vln
c( "do_you_trust_the_national_government",
"do_you_trust_the_european_commission")
test_that("normalization works", {
expect_equal(vrn, c("do you trust the national government",
"do you trust the european commission"))
expect_equal(vln, c("do_you_trust_the_national_government",
"do_you_trust_the_european_commission"))
expect_equal(ln,
c("do not know","trust","do not trust",
"inap in q 3", "not 100 pct","trust lt 50 pct",
"trust ge 90 pct", "verify and check" ,
"trust 99 pct plus"))
})
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.