The “Bertrand” class is a building block used to create other classes in this package. As such, it is most likely to be useful for developers who wish to code their own merger calibration/simulation routines.
Objects can be created by calls of the form new("Bertrand", ...)
.
Let k denote the number of products produced by all firms.
shares
:A length k vector containing observed output. Depending upon the model, output will be measured in units sold, quantity shares, or revenue shares.
mcDelta
:A length k vector where each element equals the proportional change in a product's marginal costs due to the merger.
slopes
:A k x (k+1) matrix of linear demand intercepts and slope coefficients
A vector of length k where each element equals TRUE if the product indexed by that element should be included in the post-merger simulation and FALSE if it should be excluded.
Many of the methods described below contain a ‘preMerger’ and ‘revenue’ argument. The ‘preMerger’ takes on a value of TRUE or FALSE, where TRUE invokes the method using the pre-merger values, while FALSE invokes the method using the post-merger ownership structure. The ‘revenue’ argument also takes on a value of TRUE or FALSE, where TRUE invokes the method using revenues, while FALSE invokes the method using quantities
calcMC
signature(object,preMerger=TRUE)
calcMargins
signature(object, preMerger
= TRUE)
cmcr
signature(object)
HypoMonTest
signature(object,prodIndex,ssnip=.05,...)
HypoMonTest
implements the Hypothetical
Monopolist Test for a given ‘ssnip’.
calcPriceDeltaHypoMon
signature(object,prodIndex,...)
diversionHypoMon
signature(object,prodIndex,...)
hhi
signature(object, preMerger= TRUE,revenue=FALSE)
diversion
signature(object, preMerger
= TRUE)
summary
signature(object,revenue=TRUE,shares=TRUE,parameters=FALSE,digits=2)
plot
signature(x=object,scale=.1
ggplot
to plot pre- and post-merger demand, marginal cost and equilibria. ‘scale’ controls the amount above marginal cost and below equilbrium price that is plotted.upp
signature(object)
# NOT RUN {
showClass("Bertrand") # get a detailed description of the class
showMethods(classes="Bertrand") # show all methods defined for the class
# }
Run the code above in your browser using DataLab