library(quantmod)
library(rusquant)
library(tseries)
library(timeDate)
startDate <- as.Date('2018-01-01')
endDate <- as.Date('2020-04-14')
tickers <- c("TATN", "TATNP")
getSymbols(tickers, src = 'Finam', period = '30min', from = startDate, to = endDate)
TATN <- data.table(time = index(TATN$TATN.Open), TATN$TATN.Open, TATN$TATN.Close)
TATNP <- data.table(time = index(TATNP$TATNP.Open), TATNP$TATNP.Open, TATNP$TATNP.Close)
Я скачиваю котировки акций с финама и сталкиваюсь с проблемой потери части данных по одной из бумаг. в примере кода скачиваются данные по ценам с шагом в 30 минут, и в итоге я получаю фреймы разной длинны, так как в одном из фреймов теряется одна и более котировок, что приводит к разной длинне полученных данных Например в моем коде тикер TATN имеет длинну 10366 , а TATNP имеет длинну 10364 , соответственно выпало 2 котировки.
Что бы устранить эту проблему мне нужно найти данные которые не соответствуют, а именно тот индекс времени который присутствует в одном фрейме и отсутствует в другом и удалить его, что бы этого времени и соответствующего этому времени данных не было сразу в двух датафреймах, а остались только те котировки, которые имеют одинаковый индекс времени.
Как я могу решить эту задачу?
Пример данных в таблице по ссылке