02.06.16 в программе «Вести в 20.00» на телеканале Россия 1 вышел специальный репортаж (55 минута) о том, как граждане теряют деньги на бирже. Российский фондовый рынок и так в стагнации, а теперь ему еще такая реклама! Мы предлагаем обсудить эту проблему на площадке Smart-Lab.
Корреспонденты как всегда любят «жареные факты» и, к сожалению, не всегда достаточно профессиональны. Одно дело, когда на рынке Форекс дилер сам исполняет заявки клиентов и перераспределяет деньги от одних клиентов к другим. И другое дело, фондовый рынок, который законодательно регулируется и где покупаются, и продаются реальные активы (доли в капитале эмитентов). Но в такие тонкости корреспондент не вникал и формируется представление, что на фондовом рынке работают одни «жулики».
Однако, справедливости ради, следует сказать, что «нет дыма без огня».
Ниже на рисунке представлены опубликованные на сайте одной из ведущих российских брокерских компаний доходности по стратегиям автоследования.
Посчитал на R спред между акциями Google и Apple с учётом соотношения (hedge ratio). И нанёс среднюю линию с двумя среднеквадратичными отклонениями сверху и снизу. Красота.
Делается на R это очень просто, код ниже.
require(quantmod)
> startT <- «2015-01-01»
> endT <- «2016-01-01»
> rangeT <- paste(startT, "::", endT, sep="")
> symbols <- c(«AAPL», «GOOG»)
> getSymbols(symbols)
[1] «AAPL» «GOOG»
> tGOOG <- GOOG[,6][rangeT]
> pdtGOOG <- diff(tGOOG)[-1]
> tAAPL <- AAPL[,6][rangeT]
> pdtAAPL <- diff(tAAPL)[-1]
> model <- lm(pdtAAPL ~ pdtGOOG)
> hr <- as.numeric(model$coefficients[1])
> spreadT <- tAAPL — hr * tGOOG
> meanT <- as.numeric(mean(spreadT, na.rm=TRUE))
> sdT <- as.numeric(sd(spreadT, na.rm=TRUE))
> par(mfrow = c(2,1))
> hist(spreadT, col=«blue», breaks = 100, main = «Spread Histogram (AAPL vs GOOG)»)
> plot(spreadT, main=«AAPL vs GOOG spread (in-sample period)»)
> abline(h = meanT, col = «red», lwd = 2)
> abline(h = meanT + 1 * sdT, col = «blue», lwd = 2)
> abline(h = meanT — 1 * sdT, col = «blue», lwd = 2)
Здесь:
meanT — среднее
sdT — среднекв. отклонение
spreadT — спред
par — график с двумя секциями
plot — график
hist — гистограмма
abline — линия поверх графика
model — линейная зависимость модель, МНК
quantmod — библиотека для получения исторических данных
rangeT — временной диапазон