Convert Cross-Omics Integration Results to Tibbles

Usage

as_tibble_crossomics_integration(
  object,
  block = c("all", "sample_coord", "microbiome_loading", "metabolome_loading")
)

Arguments

object: A crossomics_integration object.
block: Which block to convert.

Value

A tibble or named list of tibbles.

Examples

data("demo_crossomics", package = "microbiomedataset")

if (requireNamespace("mixOmics", quietly = TRUE)) {
  x <- integrate_microbe_metabolite(
    microbiome_data = demo_crossomics$microbiome_data,
    metabolome_data = demo_crossomics$metabolome_data,
    sample_link = demo_crossomics$sample_link,
    method = "spls"
  )
  class(as_tibble_crossomics_integration(x, block = "sample_coord"))
}
#> Warning: NaNs produced
#> [1] "tbl_df"     "tbl"        "data.frame"