make_jac: construct Jacobian matrix for ICU model (not quite complete:...

View source: R/sim_funs.R

make_jacR Documentation

construct Jacobian matrix for ICU model (not quite complete: doesn't include flows to R)

Description

construct Jacobian matrix for ICU model (not quite complete: doesn't include flows to R)

Usage

make_jac(params, state = NULL)

Arguments

params

parameter vector

state

state vector (named)

See Also

Other classic_macpan: add_d_log(), add_updated_vaxrate(), aggregate_agecats(), calibrate_comb(), calibrate(), check_age_cat_compatibility(), check_contact_rate_setting(), col_multiply(), condense_age(), condense_params_vax(), condense_state(), condense_vax(), dev_is_tikz(), do_step(), expand_params_age(), expand_params_desc_age(), expand_params_desc_variant(), expand_params_desc_vax(), expand_params_mistry(), expand_params_variant(), expand_params_vax(), expand_state_age(), expand_state_vax(), expand_stateval_testing(), fix_pars(), fix_stored(), forecast_ensemble(), forecast_sim(), getData(), get_GI_moments(), get_Gbar(), get_R0(), get_doses_per_day(), get_evec(), get_kernel_moments(), get_opt_pars(), get_r(), invlink_trans(), make_betavec(), make_beta(), make_ratemat(), make_state(), make_test_wtsvec(), make_vaxrate(), mk_Nvec(), mk_agecats(), mk_contact_rate_setting(), mk_mistry_Nvec(), mk_pmat(), mk_vaxcats(), mle_fun(), non_expanded_states, rExp(), read_params(), repair_names_age(), restore(), run_sim_ageify(), run_sim_break(), run_sim_loglin(), run_sim_mobility(), run_sim_range(), run_sim(), show_ratemat(), testify(), texify(), trans_state_vars(), update_contact_rate_setting(), update_foi(), update_params_mistry(), vis_model(), write_params()

Examples

params <- read_params("ICU1.csv")
state <- make_state(params[["N"]],E0=params[["E0"]], use_eigvec=FALSE)
## state[c("E","Ia","Ip","Im","Is")] <- 1
state[["E"]] <- 1
J <- make_jac(params,state)
J["S","S"]
Jr <- J[1:6,1:6]
round(Jr,3)
eigen(Jr)$values
make_jac(params)

bbolker/McMasterPandemic documentation built on Aug. 25, 2024, 6:35 p.m.