Hola Antoni, veo que trabajás con 'actuar'.

En la discretización de la severidad dejás la densidad en un valor muy
pequeño de X (100). Creo que es mejor aumentarlo (20000?).

Podés mirar también maxit (maximum number of recursions in the "recursive"
method).

Saludos.

César Escalante C.

El 6 de noviembre de 2012 06:00, <r-help-es-request@r-project.org> escribió:

> Envíe los mensajes para la lista R-help-es a
>         r-help-es@r-project.org
>
> Para subscribirse o anular su subscripción a través de la WEB
>         https://stat.ethz.ch/mailman/listinfo/r-help-es
>
> O por correo electrónico, enviando un mensaje con el texto "help" en
> el asunto (subject) o en el cuerpo a:
>         r-help-es-request@r-project.org
>
> Puede contactar con el responsable de la lista escribiendo a:
>         r-help-es-owner@r-project.org
>
> Si responde a algún contenido de este mensaje, por favor, edite la
> linea del asunto (subject) para que el texto sea mas especifico que:
> "Re: Contents of R-help-es digest...". Además, por favor, incluya en
> la respuesta sólo aquellas partes del mensaje a las que está
> respondiendo.
>
>
> Asuntos del día:
>
>    1. Algoritmo de Panjer (Antoni Ferri Vidal)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Tue, 6 Nov 2012 10:26:50 +0000
> From: Antoni Ferri Vidal <tonoferri_vidal@hotmail.com>
> To: R-help <r-help-es@r-project.org>
> Subject: [R-es] Algoritmo de Panjer
> Message-ID: <SNT002-W1326457FB977C543E0BFC5D966B0@phx.gbl>
> Content-Type: text/plain
>
> Hola, Estoy intentando esta convolución con una discretizada Gamma con
> Binomial negativa pero me da el siguiente error. Alguien sabe como puedo
> hacer funcional este algoritmo con estos parámetros?  >
> fx<-discretize(pgamma(x,shape=2.4149,scale=5742.2),
> + method="rounding",from=0, to =100, step=0.5)
> > Fs <- aggregateDist("recursive", model.freq = "negative binomial",
> + model.sev = fx, size= 42.97, prob=0.5,  x.scale = 500)
> Mensajes de aviso perdidos
> In panjer(fx = model.sev, dist = dist, p0 = p0, x.scale = x.scale,  :
>   maximum number of recursions reached before the probability distribution
> was complete
>  Gracias de antemano,
>
> Antoni Ferri Vidal
>         [[alternative HTML version deleted]]
>
>
>
> ------------------------------
>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
> Fin de Resumen de R-help-es, Vol 45, Envío 12
> *********************************************
>

	[[alternative HTML version deleted]]

