generate reasonable default opt_pars

get_opt_pars(params, vars = c("hosp", "death", "report"))

Arguments

params

baseline parameters

vars

which variables are being fitted to?

Examples

params <- read_params("ICU1.csv")
get_opt_pars(params)
#> $params
#>      log_E0   log_beta0  logit_phi1      log_mu 
#>  1.60943791  0.00000000  1.15267951 -0.04499737 
#> 
#> $log_nb_disp
#>   hosp  death report 
#>      0      0      0 
#> 
get_opt_pars(params,vars="hosp")
#> $params
#>      log_E0   log_beta0      log_mu 
#>  1.60943791  0.00000000 -0.04499737 
#> 
#> $log_nb_disp
#> hosp 
#>    0 
#> 
get_opt_pars(params,vars="report")
#> $params
#>    log_E0 log_beta0 
#>  1.609438  0.000000 
#> 
#> $log_nb_disp
#> report 
#>      0 
#>