R/Immobilier-gestion.R

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

##' Fonction \code{gestion_immobilier}
##'
##' Cette fonction permet de gerer un portfeuille immobilier : recolte des loyers, recalcul des VM
##'
##' @name gestion_immobilier
##' @docType methods
##' @param immobilier est un objet de type \code{\link{Immobilier}}.
##' @param esg_simu est une \code{list} contenant les rendements et les loyers.
##' @param an est un \code{integer} reprensentant l'annee sur laquelle on travaille.
##' @author Damien Tichit pour Sia Partners
##' @export
##' @include Immobilier-class.R HypActif-class.R
##'
setGeneric(name = "gestion_immobilier", def = function(immobilier, esg_simu, an) {standardGeneric("gestion_immobilier")})
setMethod(
    f = "gestion_immobilier",
    signature = c(immobilier = "Immobilier", esg_simu = "list", an = "integer"),
    definition = function(immobilier, esg_simu, an){


        ## ###########################
        ##   Extraction des donnnes
        ## ###########################
        name_ptf <- names(immobilier@ptf)




        ## ######################################################
        ## ######################################################
        ##
        ##              Mise a jour de la VM
        ##
        ## ######################################################
        ## ######################################################



        ## ###########################
        ##   Mise a jour des VM
        ## ###########################

        # Extraction du log rendement
        log_rdt <- exp(esg_simu$im_index[an])

        # Calcul des nouvelles VM
        new_vm <- .subset2(immobilier@ptf, which(name_ptf == "valeur_marche")) * log_rdt

        # Mise a jour de l'attribut
        immobilier@ptf$valeur_marche <- new_vm



        ## ###########################
        ##       Calcul des PMVL
        ## ###########################

        # Calcul des PMVL
        pmvl <- new_vm - .subset2(immobilier@ptf, which(name_ptf == "valeur_comptable"))






        ## ######################################################
        ## ######################################################
        ##
        ##                  Calcul des loyers
        ##
        ## ######################################################
        ## ######################################################

        # Extraction loyer
        loyers <- esg_simu$im_loyer[an]

        # Calcul du loyer
        loyers <- loyers * .subset2(immobilier@ptf, which(name_ptf == "valeur_marche"))





        # Output
        return(list(immobilier = immobilier,
                    pmvl = sum(pmvl),
                    loyers = sum(loyers)))
    }
)