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    0.820 B           0
#>  2 subject_002 Study-1 Arm-A     2    0.652 A           1
#>  3 subject_003 Study-1 Arm-A     3    0.625 A           1
#>  4 subject_004 Study-1 Arm-A     5   -0.866 C           0
#>  5 subject_005 Study-1 Arm-A     5   -0.665 B           0
#>  6 subject_006 Study-1 Arm-A     2    0.394 C           1
#>  7 subject_007 Study-1 Arm-A     5    0.585 C           0
#>  8 subject_008 Study-1 Arm-A     5    0.611 B           0
#>  9 subject_009 Study-1 Arm-A     5   -1.05  A           0
#> 10 subject_010 Study-1 Arm-A     4   -0.821 B           1
#> # ℹ 90 more rows
# Now max time is 5
max(data@survival$time)
#> [1] 5