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

## -----------------------------------------------------------------------------
suppressPackageStartupMessages(library(eq5d))

dat <- read.csv(
  system.file("extdata", "eq5d3l_example.csv", package = "eq5d")
)

# Ungrouped example.
dat1 <- subset(dat, Group == "Group1")

dd <- descriptive_data(dat1, version = "3L", metric = "percent")
head(dd)

## -----------------------------------------------------------------------------
descriptive_data(dat1, version = "3L", metric = "count")

## -----------------------------------------------------------------------------
table_descriptive(dd, include_total = TRUE)

## -----------------------------------------------------------------------------
dd_grp <- descriptive_data(dat, version = "3L", metric = "count", group = "Group")
table_descriptive(dd_grp)