# #——回声= FALSE,结果=“隐藏”,消息= FALSE ------------------------------- 需要(knitr)美元opts_chunk组(错误= FALSE,消息= FALSE,警告= FALSE)图书馆(BiocStyle ) ## ----------------------------------------------------------------------------- 库(metapod) p1 < - rbeta (10000 0.5, 1) p2 < - rbeta (10000 0.5, 1) par.combined < - parallelSimes(列表(p1, p2)) str (par.combined ) ## ----------------------------------------------------------------------------- 0.5 p < rbeta(10000年,1) g < -样本(100,长度(p),取代= TRUE) gr.combined < - groupedSimes (p, g) str (gr.combined ) ## ----------------------------------------------------------------------------- logfc1 < - rnorm (10000) logfc2 < - rnorm (10000) par.dir < - summarizeParallelDirection(列表(logfc1 logfc2),影响力= par.combined影响力美元)表(par.dir ) ## ----------------------------------------------------------------------------- par.dir2 < - countParallelDirection(列表(p1, p2), (logfc1,logfc2) str (par.dir2 ) ## ----------------------------------------------------------------------------- gr.combined2 < - combineGroupedPValues (p g方法=“holm-min”)str (gr.combined2 ) ## ----------------------------------------------------------------------------- sessionInfo ()