data(DMRforPairs_data)
CL.methy=CL.methy[which(CL.methy$position<=1.07E+8 &
CL.methy$position>=1.06E+8),]
#just two relevant values for the parameters
#min_distance (100 & 300) and min_n (4 & 8)
parameters=expand.grid(min_distance = c(200), min_n = c(4,5))
results_parameters= tune_parameters(parameters,
classes_gene=CL.methy$class.gene.related,
classes_island=CL.methy$class.island.related,
targetID=CL.methy$targetID,
chr=CL.methy$chromosome,
position=CL.methy$position,
m.v=CL.methy[,c(7:8)],
beta.v=CL.methy[,c(11:12)],
recode=1,
gs=CL.methy$gene.symbol,
do.parallel=0)
results_parameters
Run the code above in your browser using DataLab