Nothing
mci.shares.elast <-
function (mcidataset, submarkets, suppliers, shares, mcivar, mciparam,
check_df = TRUE)
{
if (check_df == TRUE)
{
if (exists(as.character(substitute(mcidataset)))) {
checkdf(mcidataset, submarkets, suppliers, shares, mcivar)
}
else {
stop(paste("Dataset", as.character(substitute(mcidataset))), " not found", call. = FALSE)
}
}
mciworkfile <- mcidataset
shel_name <- paste0("sh_el_", mcivar)
mci_elas <- mciparam * (1-mciworkfile[[shares]])
mci_elas <- as.data.frame(mci_elas)
names (mci_elas) <- shel_name
mciworkfile <- cbind(mciworkfile, mci_elas)
return (mciworkfile)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.