R/Passif-proj_1an.R

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

##' Fonction \code{proj_1an_passif}
##'
##' Cette fonction permet de projeter horizon 1 an le passif d'une compagnie d'assurance.
##'
##' @name proj_1an_passif
##' @docType methods
##' @param passif est un objet de type \code{\link{Passif}}.
##' @param an est un objet de type \code{integer}.
##' @author Damien Tichit pour Sia Partners
##' @export
##' @include Passif-class.R
##'
setGeneric(name = "proj_1an_passif", def = function(passif, an) {standardGeneric("proj_1an_passif")})
setMethod(
    f = "proj_1an_passif",
    signature = c(passif = "Passif", an = "integer"),
    definition = function(passif, an){



        ## ######################################################
        ## ######################################################
        ##
        ##           Extraction des PM a l'ouverture
        ##
        ## ######################################################
        ## ######################################################

        # Appel de la fonction
        pm_overture <- calcul_pm(ptf_passif = passif@ptf_passif, agreg_out = passif@hyp_passif@agreg_out)




        ## ######################################################
        ## ######################################################
        ##
        ##           Calcul des probas, le cas echeant
        ##
        ## ######################################################
        ## ######################################################

        if(passif@hyp_passif@calc_proba) {

            # Appel de la fonction
            res_calc_proba <- calc_proba_ptf_passif(ptf_passif = passif@ptf_passif, hyp_passif = passif@hyp_passif, an = an)

            # Mise a jour de l'attribut
            passif@ptf_passif <- res_calc_proba[["ptf_passif"]]

        }



        ## ######################################################
        ## ######################################################
        ##
        ## Gestion du portfeuille : Prestations, chargements, frais...
        ##
        ## ######################################################
        ## ######################################################

        # Projection sur une annee du portfeuille
        res_proj_ptf <- proj_1an_ptf_passif(ptf_passif = passif@ptf_passif, hyp_passif = passif@hyp_passif, an = an, agreg_out = passif@hyp_passif@agreg_out)

        # Mise a jour de l'attribut
        passif@ptf_passif <- res_proj_ptf[["ptf_passif"]]





        ## ######################################################
        ## ######################################################
        ##
        ##              Resultat et Tresorerie
        ##
        ## ######################################################
        ## ######################################################

        # Extraction de differents montants
        prime <- sum_list(res_proj_ptf[["flux"]][["prime"]], 1L)
        frais <- sum_list(res_proj_ptf[["flux"]][["frais"]], 2L)
        prestation <- sum_list(res_proj_ptf[["flux"]][["prestation"]], 2L)
        revalo_prestation <- sum_list(res_proj_ptf[["besoin"]][["revalo_prest"]], 1L)

        # Mouvement sur la tresorerie
        mvt_treso <- prime - frais - prestation - revalo_prestation





        # Output
        return(list(passif = passif,
                    pm_ouverture = pm_overture,
                    flux = res_proj_ptf[["flux"]],
                    revalo_prestation = res_proj_ptf[["besoin"]][["revalo_prest"]],
                    mvt_solde_treso = mvt_treso))
    }
)