# NOT RUN {
subset <- GetWinedata.subset()
# to reduce the example time we only select spectra 1 & 2
subset.spectra = as.matrix(subset$Spectra)[1:2,]
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
# }
Run the code above in your browser using DataLab