Nothing
## ----include = FALSE----------------------------------------------------------
library(haven)
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## -----------------------------------------------------------------------------
x1 <- labelled(
sample(1:5),
c(Good = 1, Bad = 5)
)
x1
x2 <- labelled(
c("M", "F", "F", "F", "M"),
c(Male = "M", Female = "F")
)
x2
## -----------------------------------------------------------------------------
as_factor(x1)
zap_labels(x1)
as_factor(x2)
zap_labels(x2)
## -----------------------------------------------------------------------------
df <- tibble::data_frame(x1, x2, z = 1:5)
df
zap_labels(df)
as_factor(df)
## -----------------------------------------------------------------------------
x <- c(1:3, tagged_na("a", "z"), 3:1)
x
## -----------------------------------------------------------------------------
print_tagged_na(x)
## -----------------------------------------------------------------------------
is_tagged_na(x)
is_tagged_na(x, "a")
na_tag(x)
## -----------------------------------------------------------------------------
y <- labelled(x, c("Not home" = tagged_na("a"), "Refused" = tagged_na("z")))
y
as_factor(y)
## -----------------------------------------------------------------------------
x1 <- labelled_spss(c(1:10, 99), c(Missing = 99), na_value = 99)
x2 <- labelled_spss(c(1:10, 99), c(Missing = 99), na_range = c(90, Inf))
x1
x2
## -----------------------------------------------------------------------------
mean(x1)
## -----------------------------------------------------------------------------
is.na(x1)
## -----------------------------------------------------------------------------
mean(x1, na.rm = TRUE)
## -----------------------------------------------------------------------------
as_factor(x1)
zap_missing(x1)
zap_labels(x1)
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.