powered by
Search for Extrema along time series
hilow(y)
time series
LIST:
indexes to peaks
indexes to valleys
peaks
# NOT RUN { 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