# NOT RUN {
data(return)
x<-return[1,]
#default
percentile.location(x)
#change the quantile
qr<-seq(0.45,0.99,0.05)
re1<-percentile.location(x,quan=qr)
###rescale affects your results
re2<-percentile.location(x,quan=qr,rescale = FALSE)
##after you get the index, you can convert them to the height
#based on temporal resolution or georeference information of this waveform.
# }
Run the code above in your browser using DataLab