R/System-calcul_resultat_fin.R

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

##' Fonction \code{calcul_resultat_fin}.
##'
##' Cette fonction permet de calculer le resultat financier d'une compagnie d'assurance.
##'
##' @name calcul_resultat_fin
##' @docType methods
##' @param resultat_fin est une \code{list} contenant les resultats financiers : PMVR, produits financiers et frais.
##' @author Damien Tichit pour Sia Partners
##' @export
##' @include
##'
setGeneric(name = "calcul_resultat_fin", def = function(resultat_fin) {standardGeneric("calcul_resultat_fin")})
setMethod(
    f = "calcul_resultat_fin",
    signature = c(resultat_fin = "list"),
    definition = function(resultat_fin) {


        ## ###########################
        ##     Resultat financier
        ## ###########################

        # Extraction des PMVR
        pmvr  <- do.call(sum, resultat_fin[["pmvr"]])

        # Extraction des produits financiers
        prod_fin <- do.call(sum, resultat_fin[["produits"]])

        # Extraction des frais
        frais <- sum_list(resultat_fin[["frais"]], 2L)

        # Variation des VNC
        var_vnc <- sum_list(resultat_fin[["var_vnc"]], 1L)

        # Resultat financier total
        resultat_fin <- pmvr + prod_fin + var_vnc - frais



        # Output
        return(resultat_fin)

    }
)