log_lik
computes a log-likelihood value for one (or multiple)
parameter set(s).
log_lik(v_params, l_params_all = load_all_params())
v_params | Vector (or matrix) of model parameters. |
---|---|
l_params_all | List with all parameters of the decision model. |
A scalar (or vector) with log-likelihood values.
# NOT RUN { v_param_names <- c("p_S1S2", "hr_S1", "hr_S2") n_param <- length(v_param_names) v_lb <- c(p_S1S2 = 0.01, hr_S1 = 1.0, hr_S2 = 5) # lower bound v_ub <- c(p_S1S2 = 0.50, hr_S1 = 4.5, hr_S2 = 15) # upper bound v_target_names <- c("Surv", "Prev", "PropSick") n_target <- length(v_target_names) log_lik(v_params = sample.prior(n_samp = 2)) # }