Модель прогнозирования времени

Question

Попытка создать модель, которая предсказывает, сколько времени займет проект. Текущая модель показывает, как долго это вероятно взять. Но я хочу сделать модель, как long это займет. Это можно сделать, добавив все предыдущие цифры до достижения 100% -ного процента. Результат должен быть чем-то вроде S-кривой. То есть вместо того, чтобы уменьшаться наполовину, я хочу, чтобы он увеличивался, пока он не достиг 100%.

library(ggplot2) 
library(mc2d) 
library(scales) 
n=1000 

planing=rpert(n, min=30, mode=40, max=70, shape=0) 
marketing=rpert(n, min=40, mode=60, max=120, shape=30) 
hirepeople=rpert(n, min=25, mode=40, max=70, shape=30) 

totallength=planing + marketing + hirepeople 

p <- ggplot(data.frame(totallength), aes(x = totallength)) 
p <- p + geom_histogram(aes(y = (..count..)/sum(..count..)), color = "black", fill = "steelblue", 
         binwidth = 5) 
p <- p + scale_y_continuous(labels = percent) 
p <- p + xlab("Days") + ylab("Percentage") 
p <- p + theme_bw() 
print(p) 

Answer 1

Вы должны использовать ecdf статистику geom_histogram. Это суммирует все проценты и приведет к тому, что вы ищете.

qplot(totallength, stat = "ecdf", geom = "step") 

Answer 2

добавляя что-то вроде scale_y_continuous (брейки = SEQ (0, 1, по = 0,1), лейблы = percent_format()) следует добавить процент.