# #设置,包括= FALSE ----------------------------------------------------- 美元knitr: opts_chunk设置(图。width = 7, fig.height = 7, echo = FALSE, warning = FALSE, message = FALSE, dev = 'png'， out。Extra = 'style="border-width:0 ;"') ## ---- 回声= TRUE ------------------------------------------------------------- rep1_df < - idr2d::: chiapet $ rep1_df rep2_df < - idr2d::: chiapet rep2_df美元 ## ----------------------------------------------------------------------------- 图书馆(DT)标题< htmltools: withTags(表(类=“显示”,thead (tr (th (colspan = 3,“锚”),th (colspan = 3, B“锚”),th(行宽= 2,“罗斯福”)),tr(拉普兰人(代表(c(“空空的。”,“开始协调”,“协调”),2),th)))))数据表(rep1_df [seq_len(最低(nrow (rep1_df), 1000)),),容器=头,rownames = FALSE,选项=列表(搜索= FALSE)) % > % formatRound(“罗斯福”,3 ) ## ----------------------------------------------------------------------------- 数据表(rep2_df [seq_len (min (nrow (rep2_df), 1000)),),容器=头,rownames = FALSE,选项=列表(搜索= FALSE)) % > % formatRound(“罗斯福”,3 ) ## ---- 回声= TRUE ------------------------------------------------------------- 库(idr2d ) ## ---- 回声= TRUE ------------------------------------------------------------- idr_results < - estimate_idr2d (rep1_df rep2_df,value_transformation = " log_additive_inverse”)rep1_idr_df < - idr_results rep1_df美元 ## ----------------------------------------------------------------------------- # 避免凹口的警告等级< - rep_rank < < - rep_value <印尼盾价值< -零头< - htmltools:: withTags(表(类=‘显示’,thead (tr (th(“R1排名”),th(排在R2), th(“R1转换价值”),th(“R2转换价值”)(“印尼盾 ") ) ) )) df < - dplyr::选择(rep_value rep1_idr_df、等级、rep_rank、价值,idr) datatable(df[seq_len(min(nrow(df)， 1000)，]， rownames = FALSE, options = list(searching = FALSE)， container = header) %>% formatRound(c("value"， "rep_value"， "idr")，3 ) ## ---- 回声= TRUE ------------------------------------------------------------- 总结(idr_results ) ## ---- 回声= TRUE ------------------------------------------------------------- draw_idr_distribution_histogram (rep1_idr_df ) ## ---- 回声= TRUE ------------------------------------------------------------- draw_rank_idr_scatterplot (rep1_idr_df ) ## ---- 回声= TRUE ------------------------------------------------------------- draw_value_idr_scatterplot (rep1_idr_df)