```r
gazelle <- read.csv("../data/gazelle.csv") %>% 
  mutate(CaptureDate = ymd(CaptureDate),
         EndDate = ymd(EndDate),
         T = createCycloSurv(CaptureDate, EndDate, 
                             event = Fate == "Dead",
                             period = 1, timeunits = "years"))
```