AS
Size: a a a
AS
PV
PU
PU
А
АК
АК
PU
JS
IS
IS
rsum.cumsum <- function(x, n = 3L) tail(cumsum(x) - cumsum(c(rep(0, n), head(x, -n))), -n + 1)
PU
> auth_stat[1:3]
login_date dau
1: 2020-06-01 733
2: 2020-06-02 1108
3: 2020-06-03 1422
auth_stat[, mau := sapply(login_date, function(x)
auth[login_date %between% c(x - 30, x), uniqueN(user_id)])]
PU
PU
КС
IS
КС
A