Доброй ночи всем
Подскажите, пожалуйста, можно решить задачу изящнее?
Написал функцию, которая считает кумулятивную сумму, но для вероятностей
не знаю как избавиться от c(a, v[c(-1, -2)])
возможно уже есть готовое решение, но я не придумал, что гуглить
в принципе все работает, но мне не нравится
pr_sum <- function(v){
if (length(v) == 1){
return(v)
} else {
a <- v[1] + v[2] - v[1] * v[2]
v <- c(a, v[c(-1, -2)])
return(pr_sum(v))
}
}