load_datafiles()
Sp<-t(read.table(phenofile))
## Peak picking
Spectrum<-Sp[1,]
iOrder <- 3
iFrameLen<- 11
SpDerivs<-sgolayDeriv(Spectrum,iOrder,iFrameLen,2)
SpSmooth<-sgolayDeriv(Spectrum,iOrder,iFrameLen,1)
peaks<-peakPeaks(SpSmooth,SpDerivs,Spectrum)
Run the code above in your browser using DataLab