data(Exp1_R25_prot, package="DAPARdata")
obj <- Exp1_R25_prot[seq_len(1000)]
metacell.mask <- match.metacell(GetMetacell(obj), c("Missing POV", "Missing MEC"), 'protein')
indices <- GetIndices_WholeMatrix(metacell.mask, op = ">=", th = 1)
obj <- MetaCellFiltering(obj, indices, cmd = "delete")
anova_tests <- t(apply(Biobase::exprs(obj$new), 1, classic1wayAnova,
conditions = as.factor(Biobase::pData(obj$new)$Condition)
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.