Interactively runs PCA on a FacileDataStore. If you want to run PCA on a subset of samples, pass in a facile_frame sample descriptor
fpcaGadget(x, title = "Principal Components Analysis", viewer = "browser", ...)
if (interactive()) {
efds <- FacileData::exampleFacileDataSet()
# run tumor vs normal comparisons vs each, then run compare9) on the results
pca.crc <- efds %>%
FacileData::filter_samples(indication == "CRC") %>%
fpcaGadget()
report(pca.crc)
shine(pca.crc)
}