Cut Study Data

Usage

cut_data(object, cut_time)

Arguments

object: (SimJointData) where the cut times should be applied.
cut_time: (numeric) A vector of cut off times, either length 1 for all patients or nrow(object@survival) for a time per patient.

Value

The input SimJointData object restricted to the requested follow-up time.

Details

All observations after this time are remove. Survival is censored at this time and any longitudinal values are removed.

Examples

data <- SimJointData(
  survival = SimSurvivalExponential(lambda = 1/10),
  longitudinal = SimLongitudinalSteinFojo()
  )
data <- cut_data(data, 5)
data@survival
#> # A tibble: 100 × 7
#>    subject     study   arm    time cov_cont cov_cat event
#>    <chr>       <fct>   <fct> <dbl>    <dbl> <fct>   <dbl>
#>  1 subject_001 Study-1 Arm-A     5   1.13   C           0
#>  2 subject_002 Study-1 Arm-A     2   1.06   C           1
#>  3 subject_003 Study-1 Arm-A     4  -0.476  C           1
#>  4 subject_004 Study-1 Arm-A     5   0.215  B           0
#>  5 subject_005 Study-1 Arm-A     5   1.88   A           0
#>  6 subject_006 Study-1 Arm-A     1  -1.63   C           1
#>  7 subject_007 Study-1 Arm-A     5  -0.173  C           0
#>  8 subject_008 Study-1 Arm-A     5  -0.0679 B           0
#>  9 subject_009 Study-1 Arm-A     5  -0.894  B           0
#> 10 subject_010 Study-1 Arm-A     5  -0.238  A           0
#> # ℹ 90 more rows
# Now max time is 5
max(data@survival$time)
#> [1] 5