plot_clf_res_list: plot_clf_res_list

In shihuang047/crossRanger: Cross-Application of Ranger Models using microbiome data

plot_clf_res_list

Description

Plot a summary of the performance of a list of classification models output from rf_clf.by_datasets.

Usage

plot_clf_res_list(
  clf_res_list,
  p_cutoff = 0.05,
  p.adj.method = "bonferroni",
  q_cutoff = 0.05,
  outdir = NULL,
  plot_height = NULL
)

Arguments

clf_res_list	A list, the output of the function rf_clf.by_datasets.
p_cutoff	A number indicating the cutoff of p values.
p.adj.method	A string indicating the p-value correction method.
q_cutoff	A number indicating the cutoff of q values after fdr correction.
outdir	The output directory.
plot_height	The plot height.

Author(s)

Shi Huang

See Also

ranger rf_clf.by_datasets

Examples

df <- data.frame(rbind(t(rmultinom(7, 75, c(.21,.6,.12,.38,.099))),
            t(rmultinom(8, 75, c(.001,.6,.42,.58,.299))),
            t(rmultinom(15, 75, c(.011,.6,.22,.28,.289))),
            t(rmultinom(15, 75, c(.091,.6,.32,.18,.209))),
            t(rmultinom(15, 75, c(.001,.6,.42,.58,.299)))))
df0 <- data.frame(t(rmultinom(60, 300,c(.001,.6,.2,.3,.299))))
metadata<-data.frame(f_s=factor(c(rep("A", 15), rep("B", 15), rep("A", 15), rep("B", 15))),
                     f_c=factor(c(rep("C", 30), rep("D", 30))),
                     f_d=factor(c(rep("A", 15), rep("B", 15), rep("C", 15), rep("D", 15))),
                     age=c(1:30, 2:31)
                     )
clf_res_list<-rf_clf.by_datasets(df, metadata, s_category="f_c", c_category="f_s")
plot_clf_res_list(clf_res_list)

shihuang047/crossRanger documentation built on Feb. 7, 2023, 10:03 p.m.