Example (or tips) for using age() in defining a cohort within atttrition()? about capr

[mdlavallee92]

If you are using age as an attribute to a condition this is indeed correct. However, circe allows you to use a demographic attribute as a point of attrition. This is not covered in Capr v2 and needs to be added.

[pa-nathaniel]

I just found some relevant documentation in at

Capr/vignettes/capr_objects.Rmd

Lines 101 to 106 in fa03ba0

	t1dConceptSet <- cs(descendants(195771), name = "T1D")
	maleT1D <- conditionOccurrence(t1dConceptSet, male())
	maleT1D18andOlder <- conditionOccurrence(t1dConceptSet, male(), age(gte(18)))
	maleT1D18andOlderFirstDx <- conditionOccurrence(
	t1dConceptSet, male(), age(gte(18)), firstOccurrence())

I'll keep learning and post an answer if I can solve it!

[mdlavallee92]

@pa-nathaniel thanks for your question. you have indeed found a bug. If you want to observe the attrition based on age you can add the age as a demographic criteria to a group. This is what happens in ATLAS. I need to add a container that holds the demographic criteria to apply it to the group. A group must take in a criteria class. Code would look as such:

library(Capr)
  
  t1dConceptSet <- cs(descendants(195771), name = "T1D") 
  
  cd <- cohort(
    entry = entry(
      t1dConceptSet,
      observationWindow = continuousObservation(priorDays = 365L),
      primaryCriteriaLimit = "All"
    ),
    attrition = attrition(
      'atLeast18' = withAll(
        demographic(age(gte(18L))) # function to add
      )
    )
  )

[pa-nathaniel]

Ah interesting, I thought I had solved it yesterday evening by doing something like the code below. Would this not do it?

library(Capr)
 
 t1dConceptSet <- cs(descendants(195771), name = "T1D") 
  
 cd <- cohort(
    entry = entry(
      t1dConceptSet,
      observationWindow = continuousObservation(priorDays = 365L),
      primaryCriteriaLimit = "All"
    ),
    attrition = attrition(
     "At least 18 at entry" = withAll(
      atLeast(
        1,
        conditionOccurrence(
          t1dConceptSet,
          age(gte(18)), firstOccurrence()
        )
      )
  )

[pa-nathaniel]

Ah great glad I wasn't too far off, thanks!