# NOT RUN {
data(return)
x<-return[1,]
#default
which.half(x)
#NOT USE rescale, the result will be a bit different
half_pos <- which.half(x,rescale=FALSE)
##the distnace from half position to the waveform ending is
dis_end = (wavelen(x)-half_pos)*0.15
dis_begin = half_pos*0.15 ##here 0.15 is the 1ns distance.
# }
Run the code above in your browser using DataLab