# NOT RUN {
##import return waveform data
data(return)
###individual waveform
x<-return[1,]
npeaks(x)
npeaks(x,smooth=FALSE) ##it will use the raw data to detect peaks
#you can set up threshold to determine if peaks are correctly identified.
npeaks(x,smooth=FALSE,threshold=0.25)
###if there are some columns are not intensity, you can delete before you process
y<-c(c(1,2,3),as.numeric(x))
npeaks(y,drop=c(1,3))
# }
Run the code above in your browser using DataLab