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

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

## Example EQ-5D-3L data included with the package
dat <- read.csv(
  system.file("extdata", "eq5d3l_example.csv", package = "eq5d")
)

## Construct a simple long-format example
## (for illustration only)
dat_long <- dat
dat_long$id <- rep(seq_len(nrow(dat_long) / 2), each = 2)
dat_long$visit <- dat_long$Group

## -----------------------------------------------------------------------------
pchc(
  MO + SC + UA + PD + AD ~ visit | id,
  data = dat_long,
  version = "3L"
)

## -----------------------------------------------------------------------------
## Prepare paired pre/post datasets
pre  <- dat[dat$Group == "Group1", ]
post <- dat[dat$Group == "Group2", ]

pchc_res <- pchc(pre, post, version = "3L", summary = TRUE)
pchc_res

## -----------------------------------------------------------------------------
ps_res <- ps(pre, post, version = "3L")
ps_res

table_ps(ps_res)

## ----fig.width = 6, fig.height = 6, fig.align = "center"----------------------
hpg_obj <- hpg(
  pre,
  post,
  country = "UK",
  version = "3L",
  type = "TTO"
)

plot_hpg(hpg_obj, version = "3L")