Функция ранжирования со свинцом (изменение баланса акций)

Question

У меня есть следующая функция

set.seed(101)
RankRB <- function(x) {  
r <- as.xts(t(apply(-x, 1, rank, na.last = "keep")))
    return(r)
}

который вычисляет ранжирование доходности активов (1 = наибольшая доходность) и возвращает матрицу рангов, подобную этой, для двух акций.

Если у меня есть ежемесячная доходность акций, то ранжирование проводится каждый месяц на основе доходности акций, а если данные ежегодные, то ранжирование проводится ежегодно и так далее. Тем не менее, я действительно хотел бы ввести различные периоды перебалансировки, которые превышают частоту данных, скажем каждые 3 месяца, если у меня есть ежемесячные данные. То есть, если акция A имеет наивысшую доходность в период t, то я бы хотел, чтобы акция сохранила этот рейтинг в течение периода t+1, а также t+2.

У кого-нибудь есть умный способ включить это в мою функцию ранжирования?