knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  warning = FALSE,
  message = TRUE,
  out.width = "100%"
)

Data preparation

library(massdataset)
library(tidyverse)
library(massstat)
data("liver_aging_pos")
liver_aging_pos

PCA analysis

library(massdataset)
library(tidyverse)
liver_aging_pos

pca_object =
liver_aging_pos %>%
  scale() %>%
  run_pca()

pca_score_plot(liver_aging_pos,
               pca_object,
               color_by = "group",
               loadings = TRUE) +
  ggsci::scale_fill_lancet() +
  ggsci::scale_color_lancet()

Session information

sessionInfo()


jaspershen/massstat documentation built on March 14, 2024, 7:02 p.m.