data(hsSampleData)
data(hsMirrorLocs)
spm1mb <- calcSpm(hsSampleData, hsMirrorLocs)
sigLevel1mb <- findSigLevelTrad(hsSampleData, spm1mb, n=3)
plot(spm1mb, sigLevels=sigLevel1mb)
plotScaleSpace(list(spm1mb), list(sigLevel1mb), type='g')
Run the code above in your browser using DataLab