if (interactive()) {
shiny_gguniv_test(
add_pcs(brauer_2008_triple, npcs = 5),
plot_table = "samples"
)
shiny_gguniv_test(brauer_2008_triple, plot_table = "measurements")
shiny_gguniv_test(brauer_2008_triple, plot_table = "features")
}
Run the code above in your browser using DataLab