#' @include RcppExports.R OwnershipMatrix.R rLogitDemandClassConstructor.R rLogitDemandClassGetters.R rLogitDemandClassMethods.R rLogitDerivatives.R
#' @export
rLogit_Demand_Market <- R6::R6Class(
"rldmkt",
public = list(
initialize = rldmkt_construct,
share = rldmkt_share,
getMarket = ldmkt_getMarket,
getOwnership = ldmkt_getOwnership,
getDs = ldmkt_getDs,
Ds_fun = rldmkt_Ds_fun,
zeta_fixed_point = ldmkt_zeta_fixed_point,
exp_profits = rldmkt_exp_profits,
exp_profits_mat = rldmkt_exp_profits_mat,
firm_profits_fun = ldmkt_firm_profits,
markups = ldmkt_markups,
markupsb = ldmkt_markupsb,
marginal_cost = ldmkt_marginal_cost,
getUjs = ldmkt_getUjs,
getCjs = ldmkt_getCjs,
getAijs = rldmkt_getAijs,
getUijs = rldmkt_getUijs,
getAlpha = rldmkt_getAlpha,
getDerivPrice = rldmkt_getDerivPrice,
getMuijs = rldmkt_getMuijs,
getSijs = rldmkt_getSijs,
computeJacobians = rldmkt_computeJacobians,
grad_eq_prof = rldmkt_grad_eq_prof,
hessian_eq_prof = rldmkt_hessian_eq_prof,
Dv_reaction_fun = rldmkt_Dv_reaction_fun,
DvDv_reaction_fun = rldmkt_DvDv_reaction_fun,
exp_prof_apprx = rldmkt_exp_prof_apprx,
CVEV = rldmkt_CVEV,
setPrice = ldmkt_setPrice
),
private = list(
Market = NULL,
Si = NULL,
Jt = NULL,
Market_size = NULL,
Alpha = NULL,
Deriv_price = NULL,
U_out_opt = NULL,
firm_profits = NULL,
O = NULL,
Ds = NULL,
ujs = NULL,
muijs = NULL,
uijs = NULL,
aijs = NULL,
cjs = NULL,
num_firms = NULL,
firm_names= NULL,
DDD = NULL,
Dp_y = NULL,
Dv_p = NULL,
Dw_p = NULL,
DwDw_p = NULL,
DvDv_p = NULL
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.