The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.
The Trajectories tab compares concept ordering patterns across clusters using median occurrence timing and prevalence.
To illustrate the timing data behind this tab, the next chunk
extracts the first recorded event day for each concept occurrence and
summarizes the most common concepts in the bundled lc500
study.
if (requireNamespace("nanoparquet", quietly = TRUE)) {
studyDir <- system.file("example", "st", package = "CohortContrast")
study <- CohortContrast::loadCohortContrastStudy("lc500", pathToResults = studyDir)
firstEventDay <- function(x) {
values <- strsplit(as.character(x), ",")[[1]]
as.numeric(trimws(values[1]))
}
patientData <- study$data_patients
patientData$FIRST_TIME_TO_EVENT <- vapply(
patientData$TIME_TO_EVENT,
firstEventDay,
numeric(1)
)
conceptCounts <- sort(table(patientData$CONCEPT_NAME), decreasing = TRUE)
topConcepts <- names(conceptCounts)[1:5]
trajectoryPreview <- patientData[patientData$CONCEPT_NAME %in% topConcepts, ]
aggregate(
FIRST_TIME_TO_EVENT ~ CONCEPT_NAME,
data = trajectoryPreview,
FUN = median
)
}
#> CONCEPT_NAME FIRST_TIME_TO_EVENT
#> 1 Bronchoscopy 10
#> 2 Inpatient Visit 37
#> 3 Malignant tumor of lung 5
#> 4 Needle biopsy of lung 10
#> 5 Outpatient Visit 23This is a simplified version of the temporal information the Trajectories tab uses for concept ordering comparisons across clusters.
Overall order: ranked by overall timing.Top movers: emphasizes concepts whose ordering shifts
most across clusters.Most stable: emphasizes concepts with minimal ordering
drift.These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.