MEAT (Muscle Epigenetic Age Test)

list(name = “Sarah Voisin”, affiliation = “Institute for Health and Sport (IHES), Victoria University, Footscray, VIC 3011, Australia”, email = “sarah.voisin.aeris@gmail.com”)

2023-10-25

library(knitr)

Introduction

Welcome to MEAT (Muscle Epigenetic Age Test)! If you are reading these lines, you are probably an inquisitive scientist who has put a lot of effort into collecting skeletal muscle samples from – hopefully – consenting humans. Your coin purse (grant) is now lighter after profiling these muscle samples with the Illumina HumanMethylation technology (HM27, HM450 and HMEPIC) and you are yearning to know what the skeletal muscle epigenome has to say about your samples’ age. I am here to guide you in your quest to find out how old your skeletal muscle samples are, by simply looking at their DNA methylation profiles. DNA methylation doesn’t lie, but it can be tricky to understand what it says. Are you ready to undertake your quest to uncover the secrets of the muscle epigenome?

You can view MEAT as a spellbook (package) that contains all the necessary spells (functions) to estimate epigenetic age in human skeletal muscle samples. However, the spells will only work if you cast them in a particular order (1. data cleaning, 2. data calibration, and 3. epigenetic age estimation). Starting from preprocessed data (matrix of beta-values that has been normalized/batch corrected, etc.), MEAT will estimate epigenetic age in each sample, based on a penalized regression model (elastic net regression) essentially similar to Horvath’s original pan-tissue clock. There are two versions of MEAT:

data("CpGs_in_MEAT",envir = environment())
data("CpGs_in_MEAT2.0",envir = environment())

For more information on MEAT and MEAT 2.0, see our JCSM paper. You have the choice to use MEAT or MEAT 2.0 in this package.

Once MEAT has calculated epigenetic age, you may provide the actual age of each sample (if known), so MEAT can also calculate age acceleration as the difference between epigenetic age and real age (AAdiff), and as the residuals from a linear regression of epigenetic age against real age (AAresid). For more information on the distinction between AAdiff and AAresid, see our original paper.

Installation

Install the MEAT package:

if (!requireNamespace("BiocManager", quietly=TRUE))
    install.packages("BiocManager")
BiocManager::install("MEAT")

Then, load the package:

library(MEAT)

Step-by-step guide

Data requirements

To use this guide, you will need in your inventory:

data("GSE121961", envir = environment())

Table: Top rows of the GSE121961 matrix before cleaning and calibration.

GSM3450524 GSM3450528
cg00000029 0.35 0.35
cg00000103 NA NA
cg00000109 0.77 0.79
cg00000155 0.94 0.96
cg00000158 0.96 0.96
cg00000165 0.23 0.20
data("GSE121961_pheno", envir = environment())

Table: Phenotypes corresponding to GSE121961.

ID Sex Age Group Batch Position
GSM3450524 M NA Control 202128330007 R01C01
GSM3450528 F 14 SELENON 202128330007 R07C01

The phenotype table is useful if you want to discover the AA of your samples and to associate this AA with a phenotype of interest (e.g. do elves show systematically lower AA than humans, therefore explaining their exceptional longevity?)

Step 1: Data formatting

A good adventurer never embarks a quest without a minimum of preparation. That is particularly true for your inventory! The beta matrix, the phenotype table and the annotation table should be all bundled up into a single object, to coordinate the meta-data and assays when subsetting. For example, if you have skeletal muscle DNA methylation profiles from humans, elves and dwarves, but you only want to select the samples from humans and elves, you can select these samples in a single operation in both the beta-matrix and phenotype table. This ensures the beta matrix, phenotype table and annotation table remain in sync. SummarizedExperiment objects) have the ideal format for your inventory. Let’s create such an object with the beta matrix and optional phenotype and annotation tables. Please ensure that you call the beta-matrix “beta” as it is essential for the upcoming functions.

library(SummarizedExperiment)
GSE121961_SE <- SummarizedExperiment(assays=list(beta=GSE121961),
colData=GSE121961_pheno)
GSE121961_SE
#> class: SummarizedExperiment 
#> dim: 866091 2 
#> metadata(0):
#> assays(1): beta
#> rownames(866091): cg00000029 cg00000103 ... ch.X.97737721F
#>   ch.X.98007042R
#> rowData names(0):
#> colnames(2): GSM3450524 GSM3450528
#> colData names(6): ID Sex ... Batch Position

Step 2: Data cleaning

The first important step is data ‘cleaning’, which essentially means reducing the beta matrix to the CpGs common to all datasets used in the muscle clock. If some of the CpGs are not present in your beta-matrix, these missing values will be imputed.

GSE121961_SE_clean <- clean_beta(SE = GSE121961_SE,
                                 version = "MEAT2.0")
#> Cluster size 18712 broken into 13355 5357 
#> Cluster size 13355 broken into 1809 11546 
#> Cluster size 1809 broken into 872 937 
#> Done cluster 872 
#> Done cluster 937 
#> Done cluster 1809 
#> Cluster size 11546 broken into 4355 7191 
#> Cluster size 4355 broken into 3154 1201 
#> Cluster size 3154 broken into 1997 1157 
#> Cluster size 1997 broken into 1497 500 
#> Done cluster 1497 
#> Done cluster 500 
#> Done cluster 1997 
#> Done cluster 1157 
#> Done cluster 3154 
#> Done cluster 1201 
#> Done cluster 4355 
#> Cluster size 7191 broken into 2960 4231 
#> Cluster size 2960 broken into 1555 1405 
#> Cluster size 1555 broken into 546 1009 
#> Done cluster 546 
#> Done cluster 1009 
#> Done cluster 1555 
#> Done cluster 1405 
#> Done cluster 2960 
#> Cluster size 4231 broken into 3042 1189 
#> Cluster size 3042 broken into 2094 948 
#> Cluster size 2094 broken into 1061 1033 
#> Done cluster 1061 
#> Done cluster 1033 
#> Done cluster 2094 
#> Done cluster 948 
#> Done cluster 3042 
#> Done cluster 1189 
#> Done cluster 4231 
#> Done cluster 7191 
#> Done cluster 11546 
#> Done cluster 13355 
#> Cluster size 5357 broken into 3289 2068 
#> Cluster size 3289 broken into 1295 1994 
#> Done cluster 1295 
#> Cluster size 1994 broken into 988 1006 
#> Done cluster 988 
#> Done cluster 1006 
#> Done cluster 1994 
#> Done cluster 3289 
#> Cluster size 2068 broken into 1043 1025 
#> Done cluster 1043 
#> Done cluster 1025 
#> Done cluster 2068 
#> Done cluster 5357

Table: Top rows of the GSE121961 beta matrix after cleaning.

GSM3450524 GSM3450528
cg21432842 0.30 0.39
cg15376097 0.20 0.26
cg05876918 0.11 0.10
cg25771195 0.64 0.67
cg21380842 0.12 0.13
cg00602891 0.09 0.08

Step 3: Data calibration

The second step is data ‘calibration’, which essentially means re-scaling the DNA methylation profiles to that of the gold standard dataset used to develop the muscle clock. This step harmonises differences in data processing, sample preparation, lab-to-lab variability, to obtain accurate measures of epigenetic age in your samples. Note that this ‘calibration’ is entirely different from the previously mentioned data preprocessing (i.e. probe and sample filtering, normalisation of Type I and Type II probes, and correction for batch effects). The calibration implemented in BMIQcalibration() does use code from the original BMIQ algorithm, but it is not used to normalize TypeI and TypeII probe methylation distribution. The BMIQcalibration() of the MEAT package re-scales the methylation distribution of your samples to the gold standard dataset GSE50498.

GSE121961_SE_calibrated <- BMIQcalibration(SE = GSE121961_SE_clean,
                                           version = "MEAT2.0")
#> [1] Inf
#> [1] 0.001738881
#> [1] 0.00248846
#> [1] 0.002669617
#> [1] 0.002586373
#> ii= 1
#> ii= 2

Table: Top rows of the GSE121961 beta matrix after cleaning and calibration.

GSM3450524 GSM3450528
cg21432842 0.2982808 0.3912860
cg15376097 0.2008260 0.2645507
cg05876918 0.1080761 0.0999306
cg25771195 0.6296271 0.6642543
cg21380842 0.1184438 0.1321498
cg00602891 0.0874385 0.0786608

You can have a look at the distribution of DNA methylation before and after calibration with a density plot. On this plot, each line is an individual sample, and you can clearly see the bimodal distribution of DNA methylation data, with most CpGs harboring very low methylation levels (left side of the graph), very few CpGs with intermediate methylation levels, and some CpGs with high methylation levels. Before calibration, the profiles do not align well with that of the gold standard, and this is problematic to obtain accurate estimates of epigenetic age. However, after calibration, the samples’ profiles overlap nicely with that of the gold standard.

data("gold.mean.MEAT2.0", envir = environment())
GSE121961_SE_clean_with_gold_mean <- cbind(assays(GSE121961_SE_clean)$beta,
                                           gold.mean.MEAT2.0$gold.mean) # add the gold mean
GSE121961_SE_calibrated_with_gold_mean <- cbind(assays(GSE121961_SE_calibrated)$beta,
                                                gold.mean.MEAT2.0$gold.mean) # add the gold mean
groups <- c(rep("GSE121961",
                ncol(GSE121961_SE_clean)), "Gold mean")

library(minfi)
par(mfrow = c(2, 1))
densityPlot(GSE121961_SE_clean_with_gold_mean,
  sampGroups = groups,
  main = "Before calibration",
  legend = FALSE
)
densityPlot(GSE121961_SE_calibrated_with_gold_mean,
  sampGroups = groups,
  main = "After calibration"
)

![plot of chunk DNA methylation profile distribution before and after calibration](figure/DNA methylation profile distribution before and after calibration-1.png)

Step 4: Epigenetic age estimation

Your quest is almost over! The only spell left to cast is epiage_estimation() that uses methylation levels at the clock CpGs to estimate epigenetic age. If you do not have information on age, epiage_estimation() will only return epigenetic age (“DNAmage”). However, if you have information on age (and other phenotypes), epiage_estimation() will return:

While AAdiff is a straightforward way of calculating the error in age prediction, it is sensitive to the mean age of the dataset and to the pre-processing of the DNA methylation dataset; AAdiff can be biased upwards or downwards depending on how the dataset was normalized, and depending on the mean age and age variance of the dataset. In contrast, AAresid is insensitive to the mean age of the dataset and is robust against different pre-processing methods.

GSE121961_SE_epiage <- epiage_estimation(SE = GSE121961_SE_calibrated,
                                         age_col_name = "Age",
                                         version = "MEAT2.0")
#> function (x)  .Primitive("dim")

Table: Phenotypes corresponding to GSE121961 with AAdiff for each sample.

ID Sex Age Group Batch Position DNAmage AAdiff
GSM3450524 GSM3450524 M NA Control 202128330007 R01C01 48.60063 NA
GSM3450528 GSM3450528 F 14 SELENON 202128330007 R07C01 15.87190 1.871902

Session information

sessionInfo()
#> R Under development (unstable) (2023-10-22 r85388)
#> Platform: x86_64-pc-linux-gnu
#> Running under: Ubuntu 22.04.3 LTS
#> 
#> Matrix products: default
#> BLAS:   /home/biocbuild/bbs-3.19-bioc/R/lib/libRblas.so 
#> LAPACK: /usr/lib/x86_64-linux-gnu/lapack/liblapack.so.3.10.0
#> 
#> locale:
#>  [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
#>  [3] LC_TIME=en_GB              LC_COLLATE=C              
#>  [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
#>  [7] LC_PAPER=en_US.UTF-8       LC_NAME=C                 
#>  [9] LC_ADDRESS=C               LC_TELEPHONE=C            
#> [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       
#> 
#> time zone: America/New_York
#> tzcode source: system (glibc)
#> 
#> attached base packages:
#> [1] parallel  stats4    stats     graphics  grDevices utils     datasets 
#> [8] methods   base     
#> 
#> other attached packages:
#>  [1] minfi_1.49.0                bumphunter_1.45.0          
#>  [3] locfit_1.5-9.8              iterators_1.0.14           
#>  [5] foreach_1.5.2               Biostrings_2.71.1          
#>  [7] XVector_0.43.0              SummarizedExperiment_1.33.0
#>  [9] Biobase_2.63.0              GenomicRanges_1.55.0       
#> [11] GenomeInfoDb_1.39.0         IRanges_2.37.0             
#> [13] S4Vectors_0.41.0            BiocGenerics_0.49.0        
#> [15] MatrixGenerics_1.15.0       matrixStats_1.0.0          
#> [17] MEAT_1.15.0                 knitr_1.44                 
#> [19] BiocStyle_2.31.0           
#> 
#> loaded via a namespace (and not attached):
#>   [1] RColorBrewer_1.1-3        shape_1.4.6              
#>   [3] magrittr_2.0.3            GenomicFeatures_1.55.0   
#>   [5] rmarkdown_2.25            BiocIO_1.13.0            
#>   [7] zlibbioc_1.49.0           vctrs_0.6.4              
#>   [9] multtest_2.59.0           memoise_2.0.1            
#>  [11] Rsamtools_2.19.0          DelayedMatrixStats_1.25.0
#>  [13] RCurl_1.98-1.12           askpass_1.2.0            
#>  [15] htmltools_0.5.6.1         S4Arrays_1.3.0           
#>  [17] progress_1.2.2            dynamicTreeCut_1.63-1    
#>  [19] curl_5.1.0                Rhdf5lib_1.25.0          
#>  [21] SparseArray_1.3.0         rhdf5_2.47.0             
#>  [23] RPMM_1.25                 KernSmooth_2.23-22       
#>  [25] nor1mix_1.3-0             plyr_1.8.9               
#>  [27] impute_1.77.0             cachem_1.0.8             
#>  [29] GenomicAlignments_1.39.0  lifecycle_1.0.3          
#>  [31] pkgconfig_2.0.3           Matrix_1.6-1.1           
#>  [33] R6_2.5.1                  fastmap_1.1.1            
#>  [35] GenomeInfoDbData_1.2.11   digest_0.6.33            
#>  [37] colorspace_2.1-0          siggenes_1.77.0          
#>  [39] reshape_0.8.9             AnnotationDbi_1.65.0     
#>  [41] RSQLite_2.3.1             base64_2.0.1             
#>  [43] filelock_1.0.2            fansi_1.0.5              
#>  [45] mgcv_1.9-0                httr_1.4.7               
#>  [47] abind_1.4-5               compiler_4.4.0           
#>  [49] beanplot_1.3.1            rngtools_1.5.2           
#>  [51] withr_2.5.1               bit64_4.0.5              
#>  [53] BiocParallel_1.37.0       DBI_1.1.3                
#>  [55] HDF5Array_1.31.0          biomaRt_2.59.0           
#>  [57] MASS_7.3-60.1             openssl_2.1.1            
#>  [59] rappdirs_0.3.3            DelayedArray_0.29.0      
#>  [61] rjson_0.2.21              tools_4.4.0              
#>  [63] methylumi_2.49.0          glue_1.6.2               
#>  [65] quadprog_1.5-8            restfulr_0.0.15          
#>  [67] nlme_3.1-163              rhdf5filters_1.15.0      
#>  [69] grid_4.4.0                cluster_2.1.4            
#>  [71] generics_0.1.3            tzdb_0.4.0               
#>  [73] preprocessCore_1.65.0     tidyr_1.3.0              
#>  [75] data.table_1.14.8         hms_1.1.3                
#>  [77] xml2_1.3.5                utf8_1.2.4               
#>  [79] lumi_2.55.0               pillar_1.9.0             
#>  [81] stringr_1.5.0             ROC_1.79.0               
#>  [83] limma_3.59.0              genefilter_1.85.0        
#>  [85] splines_4.4.0             dplyr_1.1.3              
#>  [87] BiocFileCache_2.11.0      lattice_0.22-5           
#>  [89] survival_3.5-7            rtracklayer_1.63.0       
#>  [91] bit_4.0.5                 GEOquery_2.71.0          
#>  [93] annotate_1.81.0           tidyselect_1.2.0         
#>  [95] xfun_0.40                 scrime_1.3.5             
#>  [97] statmod_1.5.0             stringi_1.7.12           
#>  [99] yaml_2.3.7                evaluate_0.22            
#> [101] codetools_0.2-19          tibble_3.2.1             
#> [103] BiocManager_1.30.22       affyio_1.73.0            
#> [105] cli_3.6.1                 xtable_1.8-4             
#> [107] Rcpp_1.0.11               dbplyr_2.3.4             
#> [109] png_0.1-8                 XML_3.99-0.14            
#> [111] readr_2.1.4               blob_1.2.4               
#> [113] prettyunits_1.2.0         mclust_6.0.0             
#> [115] doRNG_1.8.6               sparseMatrixStats_1.15.0 
#> [117] bitops_1.0-7              glmnet_4.1-8             
#> [119] affy_1.81.0               illuminaio_0.45.0        
#> [121] nleqslv_3.3.4             wateRmelon_2.9.0         
#> [123] purrr_1.0.2               crayon_1.5.2             
#> [125] rlang_1.1.1               KEGGREST_1.43.0