res=makeSimulatedData();
X=res$data;
groupLabel=res$label;
peakList <- detectSpecPeaks(X,
nDivRange = c(128),
scales = seq(1, 16, 2),
baselineThresh = 50000,
SNR.Th = -1,
verbose=FALSE
);
cat("", peakList[[1]])
segmentpeakList= findSegPeakList(peakList[[1]],400,600);
cat("", segmentpeakList)Run the code above in your browser using DataLab