## ---- 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)