powered by
hilow(y)
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