# NOT RUN {
subset <- GetWinedata.subset()
subset.spectra = as.matrix(subset$Spectra)
subset.ppm = as.numeric(subset$PPM)
test.peaks <- getWaveletPeaks(Y.spec=subset.spectra,
X.ppm=subset.ppm,
nCPU = 1) # nCPU set to 2 for the vignette build
test.peaks.plot = AddPlottingStuff(test.peaks, subset.ppm, subset$Color)
#head(test.peaks.plot)
# }
Run the code above in your browser using DataLab