Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----InstallCOINrC, eval=FALSE------------------------------------------------
# install.packages("COINr")
## ----InstallCOINr, eval=FALSE-------------------------------------------------
# remotes::install_github("bluefoxr/COINr")
## ----setup--------------------------------------------------------------------
library(COINr)
## ---- eval=F------------------------------------------------------------------
# coin <- COINr_function(coin, function_arguments)
## -----------------------------------------------------------------------------
ASEM <- new_coin(ASEM_iData, ASEM_iMeta, level_names = c("Indicator", "Pillar", "Sub-index", "Index"))
## -----------------------------------------------------------------------------
ASEM
## ---- fig.width=5, fig.height=5-----------------------------------------------
plot_framework(ASEM)
## -----------------------------------------------------------------------------
ASEM <- Denominate(ASEM, dset = "Raw")
## -----------------------------------------------------------------------------
ASEM <- Screen(ASEM, dset = "Denominated", dat_thresh = 0.9, unit_screen = "byNA")
## -----------------------------------------------------------------------------
ASEM
## -----------------------------------------------------------------------------
ASEM <- Impute(ASEM, dset = "Screened", f_i = "i_mean_grp", use_group = "EurAsia_group")
## -----------------------------------------------------------------------------
ASEM <- Treat(ASEM, dset = "Screened")
## -----------------------------------------------------------------------------
ASEM <- Normalise(ASEM, dset = "Treated")
## -----------------------------------------------------------------------------
ASEM <- Aggregate(ASEM, dset = "Normalised", f_ag = "a_amean")
## -----------------------------------------------------------------------------
# get results table
df_results <- get_results(ASEM, dset = "Aggregated", tab_type = "Aggs")
head(df_results)
## ---- fig.width=7-------------------------------------------------------------
plot_bar(ASEM, dset = "Aggregated", iCode = "Index", stack_children = TRUE)
## ---- eval=FALSE--------------------------------------------------------------
# # export coin to Excel
# export_to_excel(coin, fname = "example_coin_results.xlsx")
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.