Excel a R

Avatar de Usuario
Dalamar
Site Admin
Mensajes: 8927
Registrado: 09 May 2012 01:38

Excel a R

Mensajepor Dalamar » 27 Ene 2017 16:44

Developed by Tushar Chande in 1995, Aroon is an indicator system that determines whether a stock is trending or not and how strong the trend is. “Aroon” means “Dawn's Early Light” in Sanskrit. Chande chose this name because the indicators are designed to reveal the beginning of a new trend. The Aroon indicators measure the number of periods since price recorded an x-day high or low. There are two separate indicators: Aroon-Up and Aroon-Down. A 25-day Aroon-Up measures the number of days since a 25-day high. A 25-day Aroon-Down measures the number of days since a 25-day low. In this sense, the Aroon indicators are quite different from typical momentum oscillators, which focus on price relative to time. Aroon is unique because it focuses on time relative to price. Chartists can use the Aroon indicators to spot emerging trends, identify consolidations, define correction periods and anticipate reversals.

Calculation

The Aroon indicators are shown in percentage terms and fluctuate between 0 and 100. Aroon-Up is based on price highs, while Aroon-Down is based on price lows. These two indicators are plotted side-by-side for easy comparison. The default parameter setting in SharpCharts is 25 and the example below is based on 25 days.


Aroon-Up = ((25 - Days Since 25-day High)/25) x 100
Aroon-Down = ((25 - Days Since 25-day Low)/25) x 100


Ver: http://stockcharts.com/school/doku.php? ... tors:aroon

Vamos a convertir los el Aaron oscillator a R:

http://investexcel.net/calculate-aroon-excel-vba/
Adjuntos
AaronExcel1.JPG
AaronExcel2.JPG
Aroon Oscillator.7z
(54.79 KiB) Descargado 13 veces
¿Te ha gustado este hilo? Compartelo en las redes sociales para que se sume mas gente a la conversacion!

Avatar de Usuario
Dalamar
Site Admin
Mensajes: 8927
Registrado: 09 May 2012 01:38

Re: Excel a R

Mensajepor Dalamar » 28 Ene 2017 08:44

Como podemos ver las implementaciones difieren... habra que analizar los motivos, los resultados son bastante diferentes:

Código: Seleccionar todo

library(quantmod)
library(TTR)
getSymbols("GOOG" ,from="2013-09-18", to="2014-09-18")
model = data.frame(date=index(GOOG), coredata(GOOG))
model1 = subset(model, select=c(date, GOOG.Close, GOOG.Volume))
colnames(model1) <- c("date", "Close", "Volume")
model1$aaron = aroon(model1[, "Close"], n=25)
head (model1, 30)
Adjuntos
AaronInR.JPG
¿Te ha gustado este hilo? Compartelo en las redes sociales para que se sume mas gente a la conversacion!

Avatar de Usuario
Dalamar
Site Admin
Mensajes: 8927
Registrado: 09 May 2012 01:38

Re: Excel a R

Mensajepor Dalamar » 28 Ene 2017 10:53

Lo primero que nos deberia de llamar la atencion es el split de Google en abril del 2014, por lo que vamos a recalcular con n=24 y usando Adjusted en vez de Close...

Ahora ya tiene mejor pinta la primera linea... pero mas alla, todavia tenemos divergencias en los calculos!

Código: Seleccionar todo

library(quantmod)
library(TTR)
getSymbols("GOOG" ,from="2013-09-18", to="2014-09-18")
model = data.frame(date=index(GOOG), coredata(GOOG))
model1 = subset(model, select=c(date, GOOG.Adjusted, GOOG.Volume))
colnames(model1) <- c("date", "Close", "Volume")
model1$aaron = aroon(model1[, "Close"], n=24)
head (model1, 30)
chartSeries(as.xts(model1[,-1], order.by=model1[,1]), theme='white')
Adjuntos
aaronadjusted.PNG
¿Te ha gustado este hilo? Compartelo en las redes sociales para que se sume mas gente a la conversacion!

Avatar de Usuario
Dalamar
Site Admin
Mensajes: 8927
Registrado: 09 May 2012 01:38

Re: Excel a R

Mensajepor Dalamar » 28 Ene 2017 12:12

Volvemos a n=25, y comparamos el resultado de R (88,36,52), Excel (88, 36, 52) y StockCharts (92, 8, 84): (Ojo con el lag en el calculo, y con el Adjust close que puede ser diferente)
Adjuntos
StockChartsAaron.PNG
ExcelAaron.PNG
RAaron.PNG
¿Te ha gustado este hilo? Compartelo en las redes sociales para que se sume mas gente a la conversacion!


Volver a “Laboratorio de inversion y especulacion”

cron

Ingresar