Wednesday, August 27, 2025
\[ X = U \Sigma V^T \]
library(mia)
library(scater)
# Apply transformation
tse <- transformAssay(tse, method = "rclr")
# Apply PCA
tse <- runPCA(tse, assay.type = "clr")
# Visualize
plotReducedDim(tse, "PCA", colour_by = "patient_status")
From OMA online book, Chapter 15: Community similarity