data(samplecpg,samplepheno,package="CpGassoc")
results<-cpg.assoc(samplecpg,samplepheno$weight,large.data=FALSE)
cpg.GC(results)
##If the genomic inflation factor is less than one there is no need for adjustment
Run the code above in your browser using DataLab