## Data
load_datafiles()
Sp<-t(read.table(phenofile))
ppm<-as.numeric(colnames(Sp))
## Normalization
normSp<-normalise(abs(Sp),'CS')
##Segmentation and matching parameters
setupRSPA(ppm)
##reference spectrum selection
attach(normSp)
index<-selectRefSp(Sp,recursion$step)
refSp<-Sp[index,]
##segmentate a reference spectrum
refSegments<- segmentateSp(refSp, peakParam) # segmentate reference spectrum
Run the code above in your browser using DataLab