R: Создание вероятности/проекции каждый месяц в зависимости от вероятностей выживания.

У меня есть данные по идентификатору по месяцам, и для каждого месяца у меня есть вероятность оттока клиентов, как показано ниже.

Как я могу получить вероятность оттока каждый месяц в зависимости от вероятности выживания в предыдущем месяце? Например, для ID 6800 в месяце, оканчивающемся на 4/30, у меня есть вероятность 0.54, поэтому выживание будет (1-0.54)=0.46. Следовательно, для месяца 5/31 мне нужна вероятность как 0.46*0.125. За месяц 6/30 у меня должно быть (1-0.46*0.125)*0.081440443. Я хочу сделать это для каждого идентификатора в течение многих месяцев.

Есть ли автоматизированный способ настроить это в пакете или что-то в этом роде?

    ID        Date     ChurProb     cash
1 6800  04/30/2017  0.541440443 35019.86
2 6800  05/31/2017  0.125103719 35047.55
3 6800  06/30/2017  0.081440443 15124.00
4 6801  04/30/2017  0.541440443 35019.86
5 6801  05/31/2017  0.125103719 35047.55
6 6801  06/30/2017  0.081440443 15124.00

person VASISTA    schedule 04.05.2018    source источник


Ответы (1)


Я искал более элегантное решение, но ничего не нашел. Вот цикл, который выполняет свою работу:

calc_cond_churn <- function (dta) {
  last_id <- -1
  last_survival <- 1
  CondChurn <- rep(0, nrow(dta))
  for (i in 1:nrow(dta)) {
    if (dta$ID[i] != last_id) {
      last_survival <- 1
      last_id <- dta$ID[i]
    }
    CondChurn[i] <- dta$ChurProb[i] * last_survival
    last_survival <- 1 - CondChurn[i]
  }

  CondChurn
}

Вы бы использовали его как:

df$ConditionalChurn <- calc_cond_churn(df)
person user295691    schedule 04.05.2018
comment
Сделайте смысл совершенным. Спасибо - person VASISTA; 04.05.2018