powered by
spkPot(object, spkSlopeOut, sig, SD, precisionQuantile)
data(affy) affySlope <- spkSlope(affy) affyAccSD <- spkAccSD(affy, affySlope) spkPot(affy, affySlope, affySlope$slopes, affyAccSD, .995)
Run the code above in your browser using DataLab