convierte_a_kg: Convierte a Kg
In lilianlopez/pavement_management: Pavement Management

Usage Arguments Examples

View source: R/my_functions.R

1	convierte_a_kg(df)

df

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (df) 
{
    factor_ton_kg <- 1000
    columnas_kg <- c("gvw", "wt1", "wt2", "wt3", "wt4", "wt5", 
        "wt6", "wt7", "wt8", "wt9")
    df[columnas_kg] <- df[columnas_kg] * factor_ton_kg
    return(df)
  }