This function replace the marker_table
slot of object
with value
.
marker_table(object) <- value
a microbiomeMarker
object to modify.
new value to replace the marker_table
slot of object
.
Either a marker_table-class
, a data.frame
that can be coerced
into marker_table-class
.
a microbiomeMarker
object.
data(enterotypes_arumugam)
mm <- run_limma_voom(
enterotypes_arumugam,
"Enterotype",
contrast = c("Enterotype 3", "Enterotype 2"),
pvalue_cutoff = 0.1,
p_adjust = "fdr"
)
mm_marker <- marker_table(mm)
mm_marker
#> feature enrich_group ef_logFC pvalue
#> marker1 p__Bacteroidetes|g__Prevotella Enterotype.2 5.821020 3.082538e-11
#> marker2 p__Verrucomicrobia|g__Akkermansia Enterotype.3 -8.620727 3.304924e-05
#> marker3 p__Verrucomicrobia Enterotype.3 -8.266833 6.741864e-05
#> padj
#> marker1 7.521392e-09
#> marker2 4.032007e-03
#> marker3 5.483383e-03
marker_table(mm) <- mm_marker[1:2, ]
marker_table(mm)
#> feature enrich_group ef_logFC pvalue
#> marker1 p__Bacteroidetes|g__Prevotella Enterotype.2 5.821020 3.082538e-11
#> marker2 p__Verrucomicrobia|g__Akkermansia Enterotype.3 -8.620727 3.304924e-05
#> padj
#> marker1 7.521392e-09
#> marker2 4.032007e-03