GooG

За последнее десятилетие гиганты (Amazon, Apple, Facebook, Google и Microsoft) смогли расти, оставаясь в стороне друг от друга. Эта динамика была просто замечательной. Однако все начинает меняться.

Мы наблюдаем первые признаки нового конкурентного ландшафта в технологическом пространстве. Facebook и Google оказываются все более и более зажатыми.

Приветствуем, друзья!

Мы решили запустить специальный проект, чтобы создать рейтинг наиболее точных посетителей Смартлаба по генерации финансовых прогнозов.

3-х самых точных аналитиков ждет денежный приз!

Как принять участие в конкурсе?

1) Скачайте бесплатное мобильное приложение Cindicator (iOS);

2) Начните отвечать на вопросы, которые каждые день появляются в ленте приложения.

Пример вопроса:

Акции Apple снижались на пост маркете во вторник, 25 октября и закрылись на уровне $115 после того, как компания опубликовала отчет за 4 квартал 2016 года. Вырастет ли цена акций Apple выше $118 до 30 октября?

 3) Чем точнее вы даете прогнозы — тем больше зарабатываете рейтинговых очков и повышаете вероятность попадания в призы.

Как будет распределен денежный приз?

Посчитал на 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 — временной диапазон

Обратил внимание, что сегодня индекс держали перепроданные нефтянники и знаменитая четверка FB, AMZN, NFLX, GOOG.

В остальном, судя по финвиз, 32% акций вверх, 64 вниз, что же будет, когда «упряжка» споткнется?

Не скрывайтесь, все равно кукл узнает)