data <- gfoRmulaICE::compData
grace_period <- grace_period(type = "uniform", nperiod = 2, condition = "L1 == 0",
data = data, id = "id", time_name = "t0", outcome_name = "Y")
Run the code above in your browser using DataLab