## ----eval=FALSE---------------------------------------------------------------
#  labeltable(var,
#      ...,
#      out=NA,
#      count=FALSE,
#      percent=FALSE,
#      file=NA,
#      desc=NA,
#      note=NA,
#      note.align=NA,
#      anchor=NA)

## -----------------------------------------------------------------------------
#Include a single labelled variable to show how the values of that variable correspond to its value labels.
library(vtable)
library(sjlabelled)
data(efc)
labeltable(efc$e15relat)

## -----------------------------------------------------------------------------
#Include more than one variable to show, for each value of the first, what values of the others are present in the data.
data(mtcars)
labeltable(mtcars$cyl,mtcars$carb,mtcars$am)

## -----------------------------------------------------------------------------
library(vtable)
data(LifeCycleSavings)
labeltable(efc$e15relat, count = TRUE, percent = TRUE)

## ----eval=FALSE---------------------------------------------------------------
#  library(vtable)
#  
#  data(LifeCycleSavings)
#  labeltable(efc$e15relat,file='lifecycle_variabledocumentation')