diff --git a/R/plotAbundance.R b/R/plotAbundance.R index d1943870..c64a594e 100644 --- a/R/plotAbundance.R +++ b/R/plotAbundance.R @@ -110,7 +110,7 @@ #' ## Compositional barplot with top 5 taxa and samples sorted by "Bacteroidetes" #' #' # Getting top taxa on a Phylum level -#' se <- transformCounts(se, method="relabundance") +#' se <- transformAssay(se, method="relabundance") #' se_phylum <- agglomerateByRank(se, rank ="Phylum", onRankOnly=TRUE) #' top_taxa <- getTopTaxa(se_phylum,top = 5, assay.type = "relabundance") #' diff --git a/R/plotAbundanceDensity.R b/R/plotAbundanceDensity.R index b8d3ea8f..b8d314d6 100644 --- a/R/plotAbundanceDensity.R +++ b/R/plotAbundanceDensity.R @@ -94,7 +94,7 @@ #' plotAbundanceDensity(tse, assay.type = "counts") #' #' # Counts relative abundances -#' tse <- transformCounts(tse, method = "relabundance") +#' tse <- transformAssay(tse, method = "relabundance") #' #' # Plots the relative abundance of 10 most abundant taxa. #' # "nationality" information is used to color the points. X-axis is log-scaled. diff --git a/R/plotSeries.R b/R/plotSeries.R index 637a524c..751825c5 100644 --- a/R/plotSeries.R +++ b/R/plotSeries.R @@ -67,7 +67,7 @@ #' colour_by = "Family") #' #' # Counts relative abundances -#' object <- transformCounts(object, method = "relabundance") +#' object <- transformAssay(object, method = "relabundance") #' #' # Selects taxa #' taxa <- c("seq_1", "seq_2", "seq_3", "seq_4", "seq_5") diff --git a/man/plotAbundance.Rd b/man/plotAbundance.Rd index bffe42bb..8cd5cbdc 100644 --- a/man/plotAbundance.Rd +++ b/man/plotAbundance.Rd @@ -134,7 +134,7 @@ wrap_plots(plot, ncol = 1, heights = c(0.8,0.2)) ## Compositional barplot with top 5 taxa and samples sorted by "Bacteroidetes" # Getting top taxa on a Phylum level -se <- transformCounts(se, method="relabundance") +se <- transformAssay(se, method="relabundance") se_phylum <- agglomerateByRank(se, rank ="Phylum", onRankOnly=TRUE) top_taxa <- getTopTaxa(se_phylum,top = 5, assay.type = "relabundance") diff --git a/man/plotAbundanceDensity.Rd b/man/plotAbundanceDensity.Rd index 27acde66..8b8a7f3b 100644 --- a/man/plotAbundanceDensity.Rd +++ b/man/plotAbundanceDensity.Rd @@ -112,7 +112,7 @@ tse <- microbiomeDataSets::atlas1006() plotAbundanceDensity(tse, assay.type = "counts") # Counts relative abundances -tse <- transformCounts(tse, method = "relabundance") +tse <- transformAssay(tse, method = "relabundance") # Plots the relative abundance of 10 most abundant taxa. # "nationality" information is used to color the points. X-axis is log-scaled. diff --git a/man/plotSeries.Rd b/man/plotSeries.Rd index 75405a2e..e45fa6aa 100644 --- a/man/plotSeries.Rd +++ b/man/plotSeries.Rd @@ -96,7 +96,7 @@ plotSeries(object, colour_by = "Family") # Counts relative abundances -object <- transformCounts(object, method = "relabundance") +object <- transformAssay(object, method = "relabundance") # Selects taxa taxa <- c("seq_1", "seq_2", "seq_3", "seq_4", "seq_5") diff --git a/vignettes/miaViz.Rmd b/vignettes/miaViz.Rmd index 2fbceaea..99b0dc2c 100644 --- a/vignettes/miaViz.Rmd +++ b/vignettes/miaViz.Rmd @@ -63,7 +63,7 @@ However, if the `rank` is set not `NULL` a bar plot is returned. At the same time the `features` argument can be set to `NULL` (default). ```{r} -GlobalPatterns <- transformCounts(GlobalPatterns, method = "relabundance") +GlobalPatterns <- transformAssay(GlobalPatterns, method = "relabundance") ``` ```{r} @@ -261,7 +261,7 @@ plotColGraph(altExp(GlobalPatterns,"Genus"), library("miaTime") data(SilvermanAGutData, package="miaTime") tse <- SilvermanAGutData -tse <- transformCounts(tse, method = "relabundance") +tse <- transformAssay(tse, method = "relabundance") taxa <- getTopTaxa(tse, 2) ``` @@ -334,7 +334,7 @@ if(!requireNamespace("devtools", quietly = TRUE)){ BiocManager::install("devtools") } if(!requireNamespace("miaTime", quietly = TRUE)){ - devtools::install_github("microbiome/miaTime") + devtools::install_github("microbiome/miaTime", upgrade = "never") } ``` @@ -345,7 +345,7 @@ Principal Coordinates Analysis using Bray-Curtis dissimilarity on the library(miaTime) data(hitchip1006, package = "miaTime") tse <- hitchip1006 -tse <- transformCounts(tse, method = "relabundance") +tse <- transformAssay(tse, method = "relabundance") ## Ordination with PCoA with Bray-Curtis dissimilarity tse <- runMDS(tse, FUN = vegan::vegdist, method = "bray", name = "PCoA_BC", assay.type = "relabundance", na.rm = TRUE)