sentdex_csv <- read.csv("http://sentdex.com/api/finance/sentiment-signals/sample/")
sentdex_appl <- sentdex_csv[sentdex_csv$symbol == 'AAPL',][,c(1,3)]
sentdex_appl <- xts(sentdex_appl[,2], order.by = as.Date(sentdex_appl[,1]))
getSymbols("AAPL", from = "2012-01-01")

tmp <- na.omit(cbind(sentdex_appl, Delt(Ad(AAPL)) ))
names(tmp) <- c("Sentdex Sentiment AAPL","AAPL")

signal <- ifelse(tmp[,1] > 5, 1,0 )
signal <- ifelse(tmp[,1] < -2, -1,signal)
chart.CumReturns( cbind(lag(signal) * tmp[,2], tmp[,2]), main = "Sentdex Sentiment AAPL",legend.loc = 'topleft')

Год назад оформлял себе платиновую карточку в одном из банков. И задумался над очень интересным явлением. Градация у карточек следующая — классик, золотая и платиновая. Платиновая естественно самая крутая и дорогая в обслуживании. А почему не золотая карта теперь самая крутая, подумал я? Золото же на тот момент было дороже платины на 20%. Ну, думаю явление временное, бывают такие перекосы на бирже. Прошел год и за это время ни разу платина даже близко не подошла к стоимости золота. Вот такое изменение парадигмы произошло за последние время. Люди, которые недавно пришли на биржу, уже воспринимают это как норму, что золото дороже платины. А когда людям, кто не в курсе, про эти изменения говоришь, они искренне удивляются и не верят. Приходится показывать им котировки. Золото стоит 1260 долларов за унцию, а платина 930$ за унцию. Интересно VISA и MASTERCARD будут реагировать на изменившуюся реальность? А то скоро VIP клиенты начнут возмущаться, типа что вы мне там подсунули! Еще бы палладиевую карту мне дали! -))) Как думаете, увидим ли мы платину опять дороже золота?

Здравствуйте!

Вот и долгожданное предложение по обучению созданию торговых роботов совершенно бесплатно ПРЯМО НА СМАРТ ЛАБЕ. Просьба посмотреть полностью, что бы быть в курсе всех нюансов.

Комментируем! Ставим лайки и подписываемся! Мотивируем автора на дополнительный контент!