nmm (version 0.9)

get_npar: 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].

Description

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].

Usage

get_npar(x, values = FALSE)

Arguments

x

List of strings.

values

if TRUE returns the character vector with parameters (par[i]).

Value

Number of parameters or vector with parameters (in form par[i]).

Examples

# NOT RUN {
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)

# }