calcSpm(data, mirrorLocs, sigma = 1e+06, sampleDensity = 50000, maxmem = 1000, verbose=T, old=F)
plot
, findSigLevelTrad
, plotScaleSpace
data(hsSampleData)
data(hsMirrorLocs)
spm1mb <- calcSpm(hsSampleData, hsMirrorLocs)
spm4mb <- calcSpm(hsSampleData, hsMirrorLocs, sigma=4000000)
plot(spm1mb)
plot(spm1mb, chromosomes=c(1,5,6,'X'))
Run the code above in your browser using DataLab