gravatar for macsuejacques

2 hours ago by

Hello,

I have a question in relation to limma and how to extract the random intercepts results after running a duplicated correlation.
To summarize, I have DNA methylation data from a repeated intervention that was inter-spaced by one year of wash out. What I would like to see is if DNA methylation markers change similarly even after one year of wash out when the same intervention is applied again. My code is as follows:

design=model.matrix(~intervention+Age+Batch,data=pheno) #time as continuous
library(limma)
corfit <- duplicateCorrelation(DMFS,design,block=pheno$ID)#The function duplicateCorrelation estimates the inter-subject correlation across all probes

#Then, we need to input this inter-correlation into the linear model to take into account the paired design
fit = lmFit(DMFS, design,maxit=1000,block=pheno$ID,correlation=corfit$consensus) #I have chosen the option "robust" which will downplay the influence of outliers. This takes significantly more time for your computer to run but is more robust and is always my preference.

#get info on eBayes in the vignette of the limma package
fit2 <- eBayes(fit)

Where the outcome is delta DNA methylation (Delta M-values), intervention is 1 or 2. Then n the duplicateCorrelation I have blocked by participants ID (random intercept).
However I can seem to find a way to extract results from this random intercept. I would like to see if any CpGs (probes) change similarly in both interventions, at the individual level. Thus I need estimate, SD and p-values for the random intercept. Can anyone help please?



Source link