## Variogram under Null hypothesis (for resampled data):
data(vario)
plot(vario$variogram$v)
vario.sm <- smoothVariogram(vario, sill=0.9)
# auxiliary object to get the pValsList for the test
# results of interest:
data(betaResults)
vario.aux <- makeVariogram(betaResults, make.variogram=FALSE)
# Replace the pValsList slot:
vario.sm$pValsList <- vario.aux$pValsList
## vario.sm contains the smoothed variogram under the Null hypothesis as
## well as the p Values that the group has an effect on DNA methylation.
locCor <- estLocCor(vario.sm)
clusters.rej <- testClusters(locCor, FDR.cluster = 0.1)
clusters.trimmed <- trimClusters(clusters.rej, FDR.loc = 0.05)
Run the code above in your browser using DataLab