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

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

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

scores <- c(MO = 1, SC = 2, UA = 3, PD = 2, AD = 1)

eq5d(scores, country = "UK", version = "3L", type = "TTO")

## -----------------------------------------------------------------------------
head(valuesets(country = "France", references = c("PubMed", "DOI")))

## -----------------------------------------------------------------------------
head(valuesets(type = "VT", references = c("PubMed", "DOI")))

## ----eval=TRUE----------------------------------------------------------------
dat1 <- subset(dat, Group == "Group1")

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

## -----------------------------------------------------------------------------
lss(scores, version = "3L")
lfs(scores, version = "3L")

## -----------------------------------------------------------------------------
dat_long <- dat
dat_long$id <- rep(seq_len(nrow(dat_long) / 2), each = 2)

## -----------------------------------------------------------------------------
pchc_res <- pchc(
  MO + SC + UA + PD + AD ~ Group | id,
  data    = dat_long,
  version = "3L",
  summary = TRUE
)

pchc_res

## -----------------------------------------------------------------------------
ps_res <- ps(
  MO + SC + UA + PD + AD ~ Group | id,
  data    = dat_long,
  version = "3L"
)

ps_res