R/calcul_tx_evol_ann_moy.R

In oceanis: Cartography for Statistical Analysis

calcul_tx_evol_ann_moy <-
function(data,var1,var2,nbAnnees)
  {
    msg_error1<-msg_error2<-msg_error3<-msg_error4 <- NULL

    if(any(class(data)!="data.frame")) msg_error1 <- "Les donnees doivent etre dans un data.frame / "
    if(!any(names(data) %in% var1))  msg_error2 <- "La variable identifiant les donnees n'existe pas dans la table des donnees / "
    if(!any(names(data) %in% var2))  msg_error3 <- "La variable identifiant les donnees n'existe pas dans la table des donnees / "
    if(any(class(nbAnnees)!="numeric")) msg_error4 <- "La variable doit etre de type numerique / "

    if(any(!is.null(msg_error1),!is.null(msg_error2),!is.null(msg_error3),!is.null(msg_error4)))
    {
      stop(simpleError(paste0(msg_error1,msg_error2,msg_error3,msg_error4)))
    }

    if(any(data[,var1] %in% 0))
    {
      data[data[,var1] %in% 0,var1] <- 0.0001
    }

    data$TEAM <- ((data[,var2]/data[,var1])^(1/nbAnnees)-1)*100

    return(data)
  }