View source: R/summariseCodeUse.R
summariseCohortCodeUse | R Documentation |
Summarise code use among a cohort in the cdm reference
summariseCohortCodeUse(
x,
cdm,
cohortTable,
cohortId = NULL,
timing = "any",
countBy = c("record", "person"),
byConcept = TRUE,
byYear = FALSE,
bySex = FALSE,
ageGroup = NULL
)
x |
A codelist. |
cdm |
A cdm reference via CDMConnector. |
cohortTable |
A cohort table from the cdm reference. |
cohortId |
A vector of cohort IDs to include |
timing |
When to assess the code use relative cohort dates. This can be "any"(code use any time by individuals in the cohort) or "entry" (code use on individuals' cohort start date). |
countBy |
Either "record" for record-level counts or "person" for person-level counts. |
byConcept |
TRUE or FALSE. If TRUE code use will be summarised by concept. |
byYear |
TRUE or FALSE. If TRUE code use will be summarised by year. |
bySex |
TRUE or FALSE. If TRUE code use will be summarised by sex. |
ageGroup |
If not NULL, a list of ageGroup vectors of length two. |
A tibble with results overall and, if specified, by strata
## Not run:
library(CodelistGenerator)
library(duckdb)
library(DBI)
library(CDMConnector)
con <- dbConnect(duckdb(),
dbdir = eunomiaDir())
cdm <- cdmFromCon(con,
cdmSchema = "main",
writeSchema = "main")
cdm <- generateConceptCohortSet(cdm = cdm,
conceptSet = list(a = 260139,
b = 1127433),
name = "cohorts",
end = "observation_period_end_date",
overwrite = TRUE)
results_cohort_mult <-
summariseCohortCodeUse(list(cs = c(260139,19133873)),
cdm = cdm,
cohortTable = "cohorts",
timing = "entry")
results_cohort_mult
CDMConnector::cdmDisconnect(cdm)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.