R/add_level_column.R

Defines functions add_level_column

add_level_column <- function(df_in, lev_col_name){

  # Copy original
  df_out <- df_in

  # Add level column
  df_out[[lev_col_name]] <- as.numeric(1:nrow(df_in))

  # Return with level column in first position
  return(df_out[,c(lev_col_name, colnames(df_in))])

}
palderman/DSSAT documentation built on Feb. 24, 2024, 4:38 a.m.