Example on melting MAE (#645)

microbiome · Nov 30, 2024 · 3010297 · 3010297
1 parent e574075
commit 3010297
Showing 1 changed file with 19 additions and 1 deletion.
diff --git a/inst/pages/wrangling.qmd b/inst/pages/wrangling.qmd
@@ -165,9 +165,27 @@ library(knitr)
 # Melt SE object
 molten_tse <- meltSE(
     tse,
+    assay.type = "counts",
     add.row = TRUE,
     add.col = TRUE,
-    assay.type = "counts")
+    )
 
 molten_tse |> head() |> kable()
 ```
+
+For `MultiAssayExperiment` data, you can utilize instead `longFormat()`.
+
+```{r}
+#| label: melt-mae-data
+
+data(HintikkaXOData)
+mae <- HintikkaXOData
+
+molten_mae <- longFormat(
+    mae,
+    i = c("counts", "nmr", "signals"),
+    colDataCols = c("Rat", "Diet")
+    )
+
+molten_mae |> head() |> kable()
+```