Список проголосовавших за комментарий "Тиковая корреляция за последний день<br/> <p>library(rusquant)<br/> StartDate = as.Date(«2015-08-13»)<br/> EndDate = as.Date(«2015-08-14»)<br/> getSymbols(c('GAZP','LKOH','SNGS'), src='Finam', from=StartDate, to=EndDate, period='tick')<br/> library(PerformanceAnalytics)<br/> Data <- cbind((Cl(GAZP)),<br/> (Cl(LKOH)),<br/> (Cl(SNGS))<br/> )<br/> chart.Correlation(Data,histogram = TRUE)<br/> chart.RollingCorrelation(Data,colorset = 'red')</p><br/> <br/> <a class="imgpreview" href="/uploads/images/00/33/34/2015/08/14/4a4ca2.jpg"><img src="/uploads/images/00/33/34/2015/08/14/d7c0d5.jpg"/></a>"