Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(retroharmonize)
## -----------------------------------------------------------------------------
sl1 <- labelled_spss_survey (
x = c(1,1,0,8,8,8),
labels = c("yes" =1,
"no" = 0,
"declined" = 8),
label = "Do you agree?",
na_values = 8,
id = "survey1")
print(sl1)
## -----------------------------------------------------------------------------
is.labelled_spss_survey (sl1)
## -----------------------------------------------------------------------------
haven::is.labelled(sl1)
## -----------------------------------------------------------------------------
labelled::val_labels(sl1)
## -----------------------------------------------------------------------------
labelled::na_values(sl1)
## -----------------------------------------------------------------------------
sl1[3:4]
## -----------------------------------------------------------------------------
df <- tibble::tibble (v1 = sl1)
## Use tibble instead of data.frame(v1=sl1) ...
print(df)
## ... which inherits the methods of a data.frame
subset(df, v1 == 1)
## -----------------------------------------------------------------------------
#double
c(sl1, 1/7)
vctrs::vec_c(sl1, 1/7)
## ----integer------------------------------------------------------------------
c(sl1, 1:3)
## ----character----------------------------------------------------------------
as.character(sl1)
## ----as.factor----------------------------------------------------------------
as.factor(sl1)
## ----as_factor----------------------------------------------------------------
as_factor(sl1)
## ----numerics-----------------------------------------------------------------
as.numeric(sl1)
as_numeric(sl1)
## -----------------------------------------------------------------------------
median (as.numeric(sl1))
median (sl1)
## -----------------------------------------------------------------------------
quantile (as.numeric(sl1), 0.9)
quantile (sl1, 0.9)
## -----------------------------------------------------------------------------
mean (as.numeric(sl1))
mean (sl1)
mean (sl1, na.rm=TRUE)
## -----------------------------------------------------------------------------
weights1 <- runif (n = 6, min = 0, max = 1)
weighted.mean(as.numeric(sl1), weights1)
weighted.mean(sl1, weights1)
## -----------------------------------------------------------------------------
sum (as.numeric(sl1))
sum (sl1, na.rm=TRUE)
## -----------------------------------------------------------------------------
as_numeric(sl1)
min ( as_numeric(sl1))
min ( as_numeric(sl1), na.rm=TRUE)
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.