R/Passif-calcul_pt.R

In DTichit/ALModel: Evaluation des engagements Best-Estimate pour des contrats d'assurance-vie.

##' Fonction \code{calcul_pt}
##'
##' Cette fonction permet de determiner le montant total des provisions techniques pour une compagnie d'assurance : PM et PPE
##'
##' @name calcul_pt
##' @docType methods
##' @param passif est un objet de type \code{\link{Passif}}.
##' @author Damien Tichit pour Sia Partners
##' @export
##' @include PTFPassif-class.R
##'
setGeneric(name = "calcul_pt", def = function(passif) {standardGeneric("calcul_pt")})
setMethod(
    f = "calcul_pt",
    signature = c(passif = "Passif"),
    definition = function(passif){



        ## ######################################################
        ## ######################################################
        ##
        ##           Extraction des differentes provisions
        ##
        ## ######################################################
        ## ######################################################

        ## ###########################
        ##   Provisions mathematiques
        ## ###########################

        pm <- calcul_pm(passif@ptf_passif)


        ## ###########################
        ##              PPE
        ## ###########################

        ppe <- sum(passif@provision@ppe@ppe)


        ## ###########################
        ##              PRE
        ## ###########################

        pre <- sum(passif@provision@pre@montant)


        ## ###########################
        ##        Reserve Capi
        ## ###########################

        rc <- sum(passif@provision@reserve_capi@montant)





        ## ######################################################
        ## ######################################################
        ##
        ##              Aggregation des donnees
        ##
        ## ######################################################
        ## ######################################################

        pt_tot <- sum_list(pm, 1L) + ppe + pre + rc



        # Output
        return(list(total = pt_tot,
                    pt = list(pm = pm,
                              ppe = ppe,
                              pre = pre,
                              reserve_capi = rc)))
    }
)