data(sheep)
spec <- meanspec(sheep, f=8000, plot=FALSE)
localpeaks(spec, bands=10)
title(main="Detection of local peaks along 10 regular bands")