# [R-SIG-Finance] Locating peaks in zoo objects in one go

Vorlow Constantinos CVorlow at eurobank.gr
Fri Mar 6 17:16:36 CET 2009

```

Dear Gabor,

It seems to be missing the VIX peaks at the beginning and the very end of the history of the sequence.

What am I missing? I am trying to understand it from the help pages but...

Costas Vorlow

-----Original Message-----
From: Gabor Grothendieck [mailto:ggrothendieck at gmail.com]
Sent: Thursday, March 05, 2009 6:39 PM
To: Vorlow Constantinos; costas at vorlow.org
Cc: r-sig-finance at stat.math.ethz.ch
Subject: Re: [R-SIG-Finance] Locating peaks in zoo objects in one go

This locates peaks over plus or minus (k+1)/2 days (k odd):

# VIX from post
library(zoo)
k <- 201
idx <- rollapply(VIX, k, function(x) which.max(x) == (k+1)/2)
plot(VIX)
abline(v = time(idx)[idx])

On Thu, Mar 5, 2009 at 10:00 AM, Vorlow Constantinos <CVorlow at eurobank.gr> wrote:
> Dear R users,
>
> The following code will download the VIX volatility index to a
> variable called "VIX" (what else)...
>
> library(tseries)
> VIX <- get.hist.quote("^VIX", start = "1990-01-01", quote = "Close")
>
> Is there a way I could determine (in one go or iteratively), where the
> peaks (local maxima) lie in the sequence (say by using an arbitrary
> rule i.e., locate prices which are greater than x% the sample's
> average or a certain value) ???
>
> I would like to be able to capture the prices as well as their
> time-stamps....
>
> Best regards,
>
> Costas Vorlow
>
>
>
> P Think before you print.
>
> Disclaimer:
> This e-mail is confidential. If you are not the intended recipient, you should not copy it, re-transmit it, use it or disclose its contents, but should return it to the sender immediately and delete the copy from your system.
> EFG Eurobank Ergasias S.A. is not responsible for, nor endorses, any opinion, recommendation, conclusion, solicitation, offer or agreement or any information contained in this communication.
> EFG Eurobank Ergasias S.A. cannot accept any responsibility for the accuracy or completeness of this message as it has been transmitted over a public network. If you suspect that the message may have been intercepted or amended, please call the sender.
>
>
>        [[alternative HTML version deleted]]
>
> _______________________________________________
> R-SIG-Finance at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-sig-finance
> -- Subscriber-posting only.
> -- If you want to post, subscribe first.
>

```