knitr::opts_chunk$set( collapse = TRUE, comment = "#>", warning = FALSE, message = TRUE, out.width = "100%" )
library(massdataset) library(tidyverse) library(massstat) data("liver_aging_pos") liver_aging_pos
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()
sessionInfo()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.