R уровни сопротивления поддержки по распределению вероятности

Question

TTR имеет несколько отличных индикаторов TA. Есть ли пакет или функция, которая вычисляет и отображает различные типы уровней поддержки и сопротивления? Предпочтительно распределение вероятности для вероятных уровней поддержки и сопротивления

Answer 1

Вот пример для подражания на мой комментарий.

Рассчитать сводные данные с использованием ежемесячных данных. Каждый месяц используйте Поддержка и Сопротивление, рассчитанные по данным за предыдущий месяц. (Конечно, это не должно быть месячных Повороты с ежедневными данными Вы можете использовать ежедневные опорные точки, и ценовой ряд внутридневной.)

library(quantmod) 
getSymbols("SPY", from="2010-05-01", to="2012-06-15") 
mSPY <- to.monthly(SPY, drop.time=TRUE) 
piv <- lag(TTR:::pivots(mSPY, lagts=FALSE)) 
#merge, and fill forward pivot values so that there is a value for each day 
dat <- cbind(SPY, piv) 
dat[, 7:11] <- na.locf(dat[, 7:11]) 
chartSeries(OHLC(SPY), theme='white') 
addTA(dat$S1, on=1, col='lightblue') 
addTA(dat$S2, on=1, col='blue') 
addTA(dat$R1, on=1, col='pink') 
addTA(dat$R2, on=1, col='red') 

Это будет производить:

Дончиан каналы также можно рассматривать в качестве поддержки и сопротивления

chartSeries(OHLC(SPY), theme='white') 
dc <- lag(DonchianChannel(cbind(Hi(SPY), Lo(SPY)))) 
addTA(dc$low, on=1, col='blue') 
addTA(dc$high, on=1, col='red') 

Answer 2

Большинство индикаторов технического анализа в quantmod взяты из пакета TTR, который я написал. Я не включил субъективные показатели, такие как линии поддержки/сопротивления. Тем не менее, quantmod имеет функцию addLines, которую вы можете использовать.

library(quantmod) 
getSymbols("SPY", from="2012-01-01", to="2012-06-15") 
chartSeries(SPY, TA="addLines(h=c(134,141))", theme="white") 

Который производит: