Create a list containing the parameters of multiple fitted parametric survival models.
params_surv_list(...)
Objects of class params_surv
, which can be named.
n <- 5
params <- params_surv_list(
# Model for progression free survival
pfs = params_surv(
coefs = list(
rate = data.frame(intercept = rnorm(n, log(.5), .5),
new_strategy = rnorm(n, log(.8), .1))
),
dist = "exp"
),
# Model for overall survival
os = params_surv(
coefs = list(
rate = data.frame(intercept = rnorm(n, log(.3) , .5))
),
dist = "exp"
)
)
summary(params)
#> model parameter term mean sd 2.5% 97.5%
#> <char> <char> <char> <num> <num> <num> <num>
#> 1: pfs rate intercept -0.8726159 0.24081414 -1.2026091 -0.61584260
#> 2: pfs rate new_strategy -0.2014094 0.08236334 -0.3060481 -0.09755478
#> 3: os rate intercept -1.6255189 0.50162021 -2.3404895 -1.14510565
params
#> A "params_surv_list" object
#>
#> Summary of coefficients:
#> model parameter term mean sd 2.5% 97.5%
#> <char> <char> <char> <num> <num> <num> <num>
#> 1: pfs rate intercept -0.8726159 0.24081414 -1.2026091 -0.61584260
#> 2: pfs rate new_strategy -0.2014094 0.08236334 -0.3060481 -0.09755478
#> 3: os rate intercept -1.6255189 0.50162021 -2.3404895 -1.14510565
#>
#> Number of parameter samples: 5
#> Distributions:
#> pfs os
#> "exp" "exp"