## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)

## ----Capr, eval=FALSE---------------------------------------------------------
# library(Capr)
# 
# viralSinusitis <- cs(
#   descendants(40481087),
#   name = "viralSinusitis",
#   id = "Viral Sinusitis"
# )
# 
# viralSinusitisCohort <- cohort(
#   entry = entry(
#     conditionOccurrence(viralSinusitis),
#     primaryCriteriaLimit = "First"
#   ),
#   exit = exit(
#     endStrategy = observationExit()
#   )
# )
# 
# cohortSet <- list(ViralSinusitis = viralSinusitisCohort)

## -----------------------------------------------------------------------------
list.files(
  system.file(package = "TreatmentPatterns", "exampleCohorts"),
  full.names = TRUE
)