powered by
peaks(series, span = 3, do.pad = TRUE)
data(CE1) plot(CE1$x, CE1$y, type='l') pp = seq(from=53, to=80, by=1) plot(CE1$x[pp], CE1$y[pp], type='l') aa = peaks(CE1$y[pp], span=3) abline(v=CE1$x[pp[aa]], col='red')
Run the code above in your browser using DataLab