data(hsSampleData)
data(hsMirrorLocs)
#spm1mb <- calcSpm(hsSampleData, hsMirrorLocs)
#plot(spm1mb, type=1)
#idPoints(spm1mb)
#x11()
#plot(spm1mb, chromosomes=c(1,2,5))
#idPoints(spm1mb, mode='neg', dev=3, chromosomes=c(1,2,5))
Run the code above in your browser using DataLab