View source: R/8_model_summary.R
plot_model_summary | R Documentation |
Plot model summary
plot_model_summary(
object,
fit = rep(fits(object), times = length(coefs(object))),
coef = rep(coefs(object), each = length(fits(object))),
title = "",
sub = "",
xlab = "",
ylab = "",
nmax = NULL,
cex.sub = 1.4
)
object |
SummarizedExperiment |
fit |
character vector (values : 'limma', 'lm', 'Lme', 'lmer', 'wilcoxon' ) |
coef |
character vector |
title |
character(1) |
sub |
character(1) |
xlab |
character(1) |
ylab |
character(1) |
nmax |
integer(1) |
cex.sub |
number |
# Read
file <- system.file('extdata/atkin.metabolon.xlsx', package = 'autonomics')
object <- read_metabolon(file)
# Block
plot_model_summary(fit_wilcoxon(object), sub = '~Time (wilcoxon)', nmax = 10)
plot_model_summary(fit_wilcoxon(object, block = 'Subject'), sub = '~Time | Subject (wilcoxon)', nmax = 10)
plot_model_summary( fit_lm(object), sub = '~Time (lm)', nmax = 10)
plot_model_summary( fit_lm(object, block = 'Subject'), sub = '~Time | Subject (lm)', nmax = 10)
plot_model_summary( fit_limma(object), sub = '~Time (limma)', nmax = 10)
plot_model_summary( fit_limma(object, block = 'Subject'), sub = '~Time | Subject (limma)', nmax = 10)
# Engines
plot_model_summary(fit_wilcoxon(object, block = 'Subject'), sub = 'Wilcoxon : ~Time | Subject', nmax = 10)
plot_model_summary( fit_lm(object, block = 'Subject'), sub = 'Lm : ~Time | Subject', nmax = 10)
plot_model_summary( fit_limma(object, block = 'Subject'), sub = 'Limma : ~Time | Subject', nmax = 10)
plot_model_summary( fit_lme(object, block = 'Subject'), sub = 'Lme : ~Time | Subject', nmax = 10)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.