R/Action-realisation_pvl.R

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

##' Fonction \code{realisation_pvl_action}
##'
##' Cette fonction permet de realiser des plus values lattentes.
##'
##' @name realisation_pvl_action
##' @docType methods
##' @param action est un objet de type \code{Action}.
##' @param montant est un \code{numeric} indiquant le montant de plus value devant etre realise.
##' @author Damien Tichit pour Sia Partners
##' @include Action-class.R
##'
setGeneric(name = "realisation_pvl_action", def = function(action, montant) {standardGeneric("realisation_pvl_action")})
setMethod(
    f = "realisation_pvl_action",
    signature = c(action = "Action", montant = "numeric"),
    definition = function(action, montant){



        ## ###########################
        ##    Extraction de donnees
        ## ###########################
        names_ptf   <- names(action@ptf)
        vc_ptf      <- .subset2(action@ptf, which(names_ptf == "valeur_comptable"))
        vm_ptf      <- .subset2(action@ptf, which(names_ptf == "valeur_marche"))



        ## ###########################
        ##      Montant repris
        ## ###########################

        # Calcul des PVL
        pmvl <- vm_ptf - vc_ptf

        # Lignes pour lesquelles on est en PVL
        id_pvl <- which(pmvl > 0)

        # PV realisees
        pvr <- min(montant, if.is_empty(sum(pmvl[id_pvl]), 0))



        ## ###########################
        ##     Realisation des PVL
        ## ###########################

        if(pvr > 0) {

            # Proportion de vente
            proportion_vente <- min(montant / pmvl[id_pvl], 1)

            # Nouvelles donnees
            new_vc <- vc_ptf[id_pvl] * (1 - proportion_vente)
            new_vm <- vm_ptf[id_pvl] * (1 - proportion_vente)

            # Mise a jour de l'attribut
            action@ptf$valeur_comptable[id_pvl] <- new_vc
            action@ptf$valeur_marche[id_pvl]    <- new_vm

            # Vente
            vente <- sum(vm_ptf[id_pvl] * proportion_vente)
        }




        # Output
        return(list(action = action,
                    pvr = pvr,
                    vente = if.is_null(get0("vente"), 0)))
    }
)