if (FALSE) {
library(CohortCharacteristics)
library(DrugUtilisation)
library(plotly, warn.conflicts = FALSE)
cdm <- mockCdmFromDataset(datasetName = "GiBleed", source = "duckdb")
cdm <- generateIngredientCohortSet(
cdm = cdm, name = "my_cohort", ingredient = "acetaminophen"
)
resultsLsc <- cdm$my_cohort |>
summariseLargeScaleCharacteristics(
window = list(c(-365, -1), c(1, 365)),
eventInWindow = "condition_occurrence"
)
resultsLsc |>
plotComparedLargeScaleCharacteristics(
colour = "variable_level",
reference = "-365 to -1",
missings = NULL
) |>
ggplotly()
cdmDisconnect(cdm)
}
Run the code above in your browser using DataLab