## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(sss)
library(dplyr, quietly = TRUE, warn.conflicts = FALSE)

## -----------------------------------------------------------------------------
dat <- read.sss("sample.sss", "sample.asc")

## -----------------------------------------------------------------------------
dat %>% 
  as_tibble()

## -----------------------------------------------------------------------------
str(dat)

## -----------------------------------------------------------------------------
attr(dat, "variable.labels")

## -----------------------------------------------------------------------------
attr(dat, "label.table")$`2`