Skip to content
Prev 4698 / 15274 Next

n-period return

Try:

?diff

library(quantmod)
getSymbols("AAPL")
AAPL.Cl <- Cl(AAPL)

diff(log(AAPL.Cl), lag=11)
diff(log(AAPL.Cl), lag=90)
diff(log(AAPL.Cl), lag=180)

Or using quantmod's Delt:

Delt(Cl(AAPL), k=c(11,90,180), type="log")

HTH
Jeff

On Mon, Aug 3, 2009 at 5:55 AM,
ehxpieterse<eduard.pieterse at macquarie.com> wrote: