nmm (version 0.9)

get_par: get_par replaces names of parameters with par[i].

Description

get_par replaces names of parameters with par[i].

Usage

get_par(par, object)

Arguments

par

Names of parameters, vector of character strings.

object

List consisting formulas.

Value

A list object consisting of equations for errors with par[i] (cheqs0), the original list with formulas (eqlab), vector of parameters (parld, same as par), vector of parameters in form of par[i] (parn, exogenous variables (exog), endogenous variables (endog, in case of discrete ""), number of parameters in each equation (neq_par).

Examples

# NOT RUN {
# System of Non-linear Regressions
eq_c <- c("hg ~ exp( h0 + h1*log(tht) + h2*tht^2 + h3*elev)",
"dg ~ exp( d0 + d1*log(dbh) + d2*hg + d3*cr)")
par_c <- c(paste0("h", 0:3),paste0("d", 0:3))
para_cont <- get_par(par_c, eq_c)
# Indirect utility functions for discrete choice:
eq_d <- c("a1 + p1 * price_1 + p2 * catch_2", "a2 + p1 * price_2 + p2 * catch_2",
"a3 + p1 * price_3 + p2 * catch_3", "a4 + p1 * price_4 + p2 * catch_4")
par_d <- c(paste0("a", 1:4), paste0("p", 1:2))
disc_par <- get_par(par_d, eq_d)
# }