Nothing
## ----style, echo = FALSE, results = 'asis'------------------------------------
knitr::opts_chunk$set(fig.align = "center")
## ---- eval = FALSE------------------------------------------------------------
# if (!requireNamespace("BiocManager", quietly = TRUE))
# install.packages("BiocManager")
# BiocManager::install("lefser")
## ----include=TRUE,results="hide",message=FALSE,warning=FALSE------------------
library(lefser)
## -----------------------------------------------------------------------------
data(zeller14)
zeller14 <- zeller14[, zeller14$study_condition != "adenoma"]
## -----------------------------------------------------------------------------
table(zeller14$study_condition)
## -----------------------------------------------------------------------------
table(zeller14$age_category)
## -----------------------------------------------------------------------------
table(zeller14$age_category, zeller14$study_condition)
## -----------------------------------------------------------------------------
res <- lefser(zeller14, groupCol = "study_condition", blockCol = "age_category")
head(res)
## -----------------------------------------------------------------------------
lefserPlot(res)
## -----------------------------------------------------------------------------
sessionInfo()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.