get_npar Get number of parameters or vector of parameters in supplied equations. Extracts the number of parameters used in equations. Parameters are given as par[1], ..., par[n].
get_npar
Get number of parameters or vector of parameters in supplied equations.
Extracts the number of parameters used in equations. Parameters are given as par[1], ..., par[n].
get_npar(x, values = FALSE)
x |
List of strings. |
values |
if |
Number of parameters or vector with parameters (in form par[i]).
eq_d <- c("ASC1 * 1 + B11_dur * dur_1" , "ASC2 * 1 + B12_dur * dur_2", "ASC3 * 1 + B13_dur * dur_3 + B20_cost * cost_3 + B53_parkman * PbAvl_3", "ASC4 * 1 + B14_dur * dur_4 + B20_cost * cost_4 + B34_serv * servIdx_4 + B44_stop * stopUs1R1_4") parl <- c("ASC1", "B11_dur", "ASC2", "B12_dur", "ASC3", "B13_dur", "B20_cost", "B53_parkman", "ASC4", "B14_dur", "B20_cost", "B34_serv", "B44_stop") %>% unique disc_par <- get_par(parl, eq_d) get_npar(disc_par$cheqs0) get_npar(disc_par$cheqs0, values=TRUE)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.