x <- rnorm(100,mean=1500,sd=800)
( lmm <- local.min.max(x, dev=mean, add.points=TRUE,
main="Local Minima and Maxima") )
# return only local minimum values
local.min.max(x)$minima
Run the code above in your browser using DataLab