if (FALSE) {
library(CohortCharacteristics)
library(omock)
library(CDMConnector)
library(dplyr, warn.conflicts = FALSE)
cdm <- mockCdmFromDataset(datasetName = "GiBleed", source = "duckdb")
cdm <- generateConceptCohortSet(
cdm = cdm,
conceptSet = list(viral_pharyngitis = 4112343),
name = "my_cohort"
)
result <- summariseLargeScaleCharacteristics(
cohort = cdm$my_cohort,
window = list(c(-Inf, -1), c(0, 0), c(1, Inf)),
episodeInWindow = "drug_exposure"
)
tableLargeScaleCharacteristics(result)
tableLargeScaleCharacteristics(result,
compareBy = "variable_level")
tableLargeScaleCharacteristics(result,
compareBy = "variable_level",
smdReference = "-inf to -1")
cdmDisconnect(cdm)
}
Run the code above in your browser using DataLab