inst/ct_shiny/Details/mergersNoPurch.R

In competitiontoolbox: A Graphical User Interface for Antitrust and Trade Practitioners

mergersNoPurch <- function(sim) {

  if(grepl("cournot", class(sim), ignore.case = TRUE)){return()}

  isCES <- grepl("ces", class(sim), ignore.case = TRUE)

  res <- data.frame('No-purchase\n Share (%)'= c(
            1 - sum(calcShares(sim, preMerger = TRUE, revenue = isCES)),
            1 - sum(calcShares(sim, preMerger = FALSE, revenue = isCES))), check.names = FALSE)*100

  res$'Revenues ($)' <- as.integer(round(c(calcRevenues(sim, preMerger = TRUE, market = TRUE),
                                           calcRevenues(sim, preMerger = FALSE, market = TRUE))))

  rownames(res) <- c("Pre-Merger", "Post-Merger")

  if(grepl("aids",class(sim),ignore.case = TRUE)) res$'No-purchase\n Share (%)' <- NULL

  return(res)
}