R/calcul_tx_evol_global.R

In oceanis: Cartography for Statistical Analysis

calcul_tx_evol_global <-
function(data,var1,var2)
  {
    msg_error1<-msg_error2<-msg_error3 <- 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(!is.null(msg_error1),!is.null(msg_error2),!is.null(msg_error3)))
    {
      stop(simpleError(paste0(msg_error1,msg_error2,msg_error3)))
    }

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

    data$TEG <- ((data[,var2]-data[,var1])/data[,var1])*100

    return(data)
  }