Как создать под-ссылки для пользователя при регистрации?

Более простая реализация функции mavback w_i_l_l, основанная на его функции mav

mavback <- function(x,n){ filter(x, c(0, rep(1/n,n)), sides=1) }