## use as function (if you don't use TrialSimulator for simulation)
pfs_and_os_trt <- CorrelatedPfsAndOs3(1e4, 0.06, 0.30, 0.30, 'PFS', 'OS')
pfs_and_os_pbo <- CorrelatedPfsAndOs3(1e4, 0.10, 0.40, 0.30, 'PFS', 'OS')
## use as generator (if you use TrialSimulator for simulation)
pfs_and_os <- endpoint(name = c('PFS', 'os'),
type = c('tte', 'tte'),
generator = CorrelatedPfsAndOs3,
h01 = .06, h02 = .30, h12 = .30,
pfs_name = 'PFS', os_name = 'os')
pfs_and_os # run it in console to see summary report
Run the code above in your browser using DataLab