data(hsSampleData)
data(hsMirrorLocs)
spm1mb <- calcSpm(hsSampleData, hsMirrorLocs)
siglevel1mb <- findSigLevelTrad(hsSampleData, spm1mb, n=3)
sigSegments1mb <- getSigSegments(spm1mb, siglevel1mb)
write.table(sigSegments1mb, file=file.path(tempdir(),'sigSegments1mb.txt'))
Run the code above in your browser using DataLab