library(dplyr)
brauer_augmented <- brauer_2008_tidy %>%
add_pcs(npcs = 5) %>%
tomic_to("triple_omic")
plot_univariate(brauer_augmented$samples, "PC1", "nutrient")
plot_univariate(brauer_augmented$measurements, "expression", NULL)
Run the code above in your browser using DataLab