Как найти 80% от распределения

Question

A есть проблема. У меня есть кадр данных byDays, который состоит из двух столбцов: день и деньги. День выглядит как последовательность от 0 до 100. И деньги - это сумма денег, которую наши клиенты провели в этот день. Я построил дистрибутив, но не могу его связать, havent получил достаточную репутацию.

И мне нужно найти день (!), Из которого будет 80% площади моего распределения.

Answer 1

Если вы хотите, чтобы точка, при которой 80% от общего объема достигается это даст вам ответ:

set.seed(1) 
day <- 1:100 
profit <- runif(100, 0, 15) 

## Point at which 80% of the total is reached: 
pct <- max(x[ cumsum(profit)/sum(profit) <= 0.8]) 

plot(day, cumsum(profit)/sum(profit)) 
abline(v=pct, col="red")