Усеченный слева гамма-фитинг - PullRequest
Новая
       26

Усеченный слева гамма-фитинг

0 голосов
/ 31 января 2019

Я пытаюсь соответствовать левому усеченному гамма-распределению в R. У меня большие претензии выше 25 000 долларов.Претензии ниже 25 000 долларов США неизвестны.Я пытаюсь настроить параметры гаммы с помощью процедуры MLE в R. Может ли кто-нибудь предложить код для этого?Мой текущий код выглядит следующим образом:

Может кто-нибудь объяснить, как написать код для этого?Я пытался использовать функцию fitdist, но я не уверен, как называется усеченная гамма-функция и для чего требуется ее запуск.

Неудачный код: 

dtruncated_gamma <- function(x, alpha, theta)
  dtrunc(x, "gamma", shape=shape , scale=scale, a = 25000, b = Inf)
ptruncated_gamma <- function(x, alpha, theta)
  ptrunc(x, "gamma", shape=shape , scale=scale, a = 25000, b = Inf)
fitdist(LargeClaims, "truncated_gamma", method = "mle", start = c(shape = 2, scale = 1000))

Спасибо!

...