Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## -----------------------------------------------------------------------------
library(COINr)
# build example coin
coin <- build_example_coin(quietly = TRUE)
## ---- eval=FALSE--------------------------------------------------------------
# # export coin to Excel
# export_to_excel(coin, fname = "example_coin_results.xlsx")
## ---- eval=FALSE--------------------------------------------------------------
# # make sure file is in working directory!
# coin_import <- import_coin_tool("COIN_Tool_v1_LITE_exampledata.xlsm",
# makecodes = TRUE, out2 = "coin")
## ---- eval=FALSE--------------------------------------------------------------
# coin <- COIN_to_coin(COIN)
## -----------------------------------------------------------------------------
X <- ASEM_iData[1:5,c(2,10:12)]
X
## -----------------------------------------------------------------------------
rank_df(X)
## -----------------------------------------------------------------------------
replace_df(X, data.frame(old = c("AUT", "BEL"), new = c("test1", "test2")))
## -----------------------------------------------------------------------------
round_df(X, 1)
## -----------------------------------------------------------------------------
signif_df(X, 3)
## -----------------------------------------------------------------------------
# copy
X1 <- X
# change three values
X1$GDP[3] <- 101
X1$Population[1] <- 10000
X1$Population[2] <- 70000
# reorder
X1 <- X1[order(X1$uCode), ]
# now compare
compare_df(X, X1, matchcol = "uCode")
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.