#Using cpg.assoc:
data(samplecpg,samplepheno,package="CpGassoc")
results<-cpg.assoc(samplecpg,samplepheno$weight,large.data=FALSE)
results
##Using cpg.perm:
Testperm<-cpg.perm(samplecpg[1:200,],samplepheno$weight,data.frame(samplepheno$Dose),
seed=2314,nperm=10,large.data=FALSE)
Testperm
#For more examples go to those two pages main help pages.
Run the code above in your browser using DataLab