# Step 4: Obtain aggregated data on temporal symmetry

# Introduction

In this vignette we will explore the functionality and arguments of `summariseTemporalSymmetry()` function. This function uses `cdm$intersect` introduced in the previous vignette Step 1. Generate a sequence cohort to produce aggregated statistics containing the frequency for different time gaps between the initiation of the marker and the initiation of the index (`marker_date` \(-\) `index_date`). The work of this function is best illustrated via an example.

Recall that in the previous vignette, we’ve used `cdm$aspirin` and `cdm$acetaminophen` to generate `cdm$intersect` like so:

    # Generate a sequence cohort
    cdm <- generateSequenceCohortSet(
      cdm = cdm,
      indexTable = "aspirin",
      markerTable = "acetaminophen",
      name = "intersect",
      combinationWindow = c(0,Inf))

# Obtaining temporal symmetry

    summariseTemporalSymmetry(cohort = cdm$intersect) |>
      dplyr::glimpse()
    #> Rows: 558
    #> Columns: 13
    #> $ result_id        <int> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,…
    #> $ cdm_name         <chr> "Synthea", "Synthea", "Synthea", "Synthea", "Synthea"…
    #> $ group_name       <chr> "index_name &&& marker_name", "index_name &&& marker_…
    #> $ group_level      <chr> "aspirin &&& acetaminophen", "aspirin &&& acetaminoph…
    #> $ strata_name      <chr> "overall", "overall", "overall", "overall", "overall"…
    #> $ strata_level     <chr> "overall", "overall", "overall", "overall", "overall"…
    #> $ variable_name    <chr> "temporal_symmetry", "temporal_symmetry", "temporal_s…
    #> $ variable_level   <chr> "108", "-178", "218", "334", "-28", "223", "113", "26…
    #> $ estimate_name    <chr> "count", "count", "count", "count", "count", "count",…
    #> $ estimate_type    <chr> "integer", "integer", "integer", "integer", "integer"…
    #> $ estimate_value   <chr> "3", "1", "1", "2", "8", "1", "7", "3", "4", "9", "11…
    #> $ additional_name  <chr> "overall", "overall", "overall", "overall", "overall"…
    #> $ additional_level <chr> "overall", "overall", "overall", "overall", "overall"…

The default unit of the difference of two initiations is measured in months. In this example, the first row is showing there are \(6\) cases of index happening after marker with the gap being \(29\) months whereas the second row is showing there are \(7\) cases of index happening before marker with the gap being \(40\) months.

## Modify the cohort based on `cohort_definition_id`

This parameter is used to subset the cohort table inputted to the `summariseTemporalSymmetry()`. Imagine the user only wants to include `cohort_definition_id` \(= 1\) from `cdm$intersect` in the `summariseTemporalSymmetry()`, then one could do the following:

    summariseTemporalSymmetry(cohort = cdm$intersect,
                              cohortId = 1) |>
      dplyr::glimpse()
    #> Rows: 558
    #> Columns: 13
    #> $ result_id        <int> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,…
    #> $ cdm_name         <chr> "Synthea", "Synthea", "Synthea", "Synthea", "Synthea"…
    #> $ group_name       <chr> "index_name &&& marker_name", "index_name &&& marker_…
    #> $ group_level      <chr> "aspirin &&& acetaminophen", "aspirin &&& acetaminoph…
    #> $ strata_name      <chr> "overall", "overall", "overall", "overall", "overall"…
    #> $ strata_level     <chr> "overall", "overall", "overall", "overall", "overall"…
    #> $ variable_name    <chr> "temporal_symmetry", "temporal_symmetry", "temporal_s…
    #> $ variable_level   <chr> "-229", "375", "291", "-43", "118", "499", "148", "10…
    #> $ estimate_name    <chr> "count", "count", "count", "count", "count", "count",…
    #> $ estimate_type    <chr> "integer", "integer", "integer", "integer", "integer"…
    #> $ estimate_value   <chr> "1", "1", "1", "7", "6", "1", "6", "5", "1", "1", "14…
    #> $ additional_name  <chr> "overall", "overall", "overall", "overall", "overall"…
    #> $ additional_level <chr> "overall", "overall", "overall", "overall", "overall"…

Of course and once again this does nothing because every entry in `cdm$intersect` has `cohort_definition_id` \(= 1\).

## Modify `timescale`

Recall the default for the timescale is `month`, one could also change this to either `day` or `year`.

    summariseTemporalSymmetry(cohort = cdm$intersect,
                              timescale = "day") |>
      dplyr::glimpse()
    #> Rows: 1,350
    #> Columns: 13
    #> $ result_id        <int> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,…
    #> $ cdm_name         <chr> "Synthea", "Synthea", "Synthea", "Synthea", "Synthea"…
    #> $ group_name       <chr> "index_name &&& marker_name", "index_name &&& marker_…
    #> $ group_level      <chr> "aspirin &&& acetaminophen", "aspirin &&& acetaminoph…
    #> $ strata_name      <chr> "overall", "overall", "overall", "overall", "overall"…
    #> $ strata_level     <chr> "overall", "overall", "overall", "overall", "overall"…
    #> $ variable_name    <chr> "temporal_symmetry", "temporal_symmetry", "temporal_s…
    #> $ variable_level   <chr> "5671", "947", "1034", "6665", "5791", "-6245", "9577…
    #> $ estimate_name    <chr> "count", "count", "count", "count", "count", "count",…
    #> $ estimate_type    <chr> "integer", "integer", "integer", "integer", "integer"…
    #> $ estimate_value   <chr> "1", "1", "1", "1", "1", "1", "1", "1", "2", "1", "1"…
    #> $ additional_name  <chr> "overall", "overall", "overall", "overall", "overall"…
    #> $ additional_level <chr> "overall", "overall", "overall", "overall", "overall"…

    summariseTemporalSymmetry(cohort = cdm$intersect,
                              timescale = "year") |>
      dplyr::glimpse()
    #> Rows: 94
    #> Columns: 13
    #> $ result_id        <int> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,…
    #> $ cdm_name         <chr> "Synthea", "Synthea", "Synthea", "Synthea", "Synthea"…
    #> $ group_name       <chr> "index_name &&& marker_name", "index_name &&& marker_…
    #> $ group_level      <chr> "aspirin &&& acetaminophen", "aspirin &&& acetaminoph…
    #> $ strata_name      <chr> "overall", "overall", "overall", "overall", "overall"…
    #> $ strata_level     <chr> "overall", "overall", "overall", "overall", "overall"…
    #> $ variable_name    <chr> "temporal_symmetry", "temporal_symmetry", "temporal_s…
    #> $ variable_level   <chr> "-4", "41", "-3", "-21", "57", "-32", "45", "39", "63…
    #> $ estimate_name    <chr> "count", "count", "count", "count", "count", "count",…
    #> $ estimate_type    <chr> "integer", "integer", "integer", "integer", "integer"…
    #> $ estimate_value   <chr> "68", "4", "83", "7", "1", "1", "3", "2", "1", "130",…
    #> $ additional_name  <chr> "overall", "overall", "overall", "overall", "overall"…
    #> $ additional_level <chr> "overall", "overall", "overall", "overall", "overall"…

    CDMConnector::cdmDisconnect(cdm = cdm)