Test the shiny ggBivariate module as a stand-alone application.
shiny_ggbiv_test(tomic, plot_table = "samples")a shiny app
if (interactive()) {
shiny_ggbiv_test(
add_pcs(brauer_2008_triple, npcs = 5),
plot_table = "samples"
)
shiny_ggbiv_test(
brauer_2008_triple,
plot_table = "measurements"
)
}