3 Load packages and download data

# load packages
library(tidyverse)
library(patchwork)
library(readxl)
library(ggpubr)

# Data download
# http://www.comptransmed.com/bigdata_pich/CH_231.xlsx
# http://www.comptransmed.com/bigdata_pich/Serum.xlsx

# create the output folder 'CH_output'
outdir <- 'rmd_output'
if(!dir.exists(outdir)) dir.create(outdir)