powered by
Search for Extrema along time series
hilow(y)
LIST:
indexes to peaks
indexes to valleys
time series
Jonathan M. Lees<jonathan.lees.edu>
peaks
ex <- seq(from=0, to=4*pi, length = 200) y <- sin(ex) plot(ex, y, type='l') peakval <- hilow(y) abline(v=ex[peakval$hi], col='green') abline(v=ex[peakval$lo], col='red')
Run the code above in your browser using DataLab