ЕТ
Size: a a a
A
В
AZ
IS
rate_date rate_valueТребуется для каждого периода во второй табличке найти средню ставку из первой таблички
1 2017-12-01 8.2
2 2017-12-02 8.2
3 2017-12-03 8.2
4 2017-12-04 7.8
5 2017-12-05 8.1
> dp %>% select(fromdate,todate) %>% head(5)
fromdate todate
1 2020-12-15 2020-12-16
2 2020-12-18 2020-12-19
3 2020-12-16 2020-12-17
4 2020-12-18 2020-12-20
dp %>% rowwise() %>% mutate(m_rate=mean(rr$rate_value[rr$rate_date>=fromdate &Подозреваю есть способ через apply
rr$rate_date<= ifelse(todate>=max(rr$rate_date),max(rr$rate_date),todate )])) %>% select(fromdate,todate,m_rate)
A
В
АК
rate_date rate_valueТребуется для каждого периода во второй табличке найти средню ставку из первой таблички
1 2017-12-01 8.2
2 2017-12-02 8.2
3 2017-12-03 8.2
4 2017-12-04 7.8
5 2017-12-05 8.1
> dp %>% select(fromdate,todate) %>% head(5)
fromdate todate
1 2020-12-15 2020-12-16
2 2020-12-18 2020-12-19
3 2020-12-16 2020-12-17
4 2020-12-18 2020-12-20
dp %>% rowwise() %>% mutate(m_rate=mean(rr$rate_value[rr$rate_date>=fromdate &Подозреваю есть способ через apply
rr$rate_date<= ifelse(todate>=max(rr$rate_date),max(rr$rate_date),todate )])) %>% select(fromdate,todate,m_rate)
data.table::foverlaps
глянь.A
rate_date rate_valueТребуется для каждого периода во второй табличке найти средню ставку из первой таблички
1 2017-12-01 8.2
2 2017-12-02 8.2
3 2017-12-03 8.2
4 2017-12-04 7.8
5 2017-12-05 8.1
> dp %>% select(fromdate,todate) %>% head(5)
fromdate todate
1 2020-12-15 2020-12-16
2 2020-12-18 2020-12-19
3 2020-12-16 2020-12-17
4 2020-12-18 2020-12-20
dp %>% rowwise() %>% mutate(m_rate=mean(rr$rate_value[rr$rate_date>=fromdate &Подозреваю есть способ через apply
rr$rate_date<= ifelse(todate>=max(rr$rate_date),max(rr$rate_date),todate )])) %>% select(fromdate,todate,m_rate)
БА
PU
PU
IS
data.table::foverlaps
глянь.IS
БА
PU
PU
PU
БА
ДВ