R convenience helpers

helpers

#First differences, NA for first value
diff_na <- function(vector){
  return c(NA, diff(value))
}

#Renames column
col.mv <- function(dataframe, old_name, new_name){
  names(dataframe)[names(dataframe)==old_name] <- new_name
  return dataframe
}
#convert numbers with commas to integers
comma_numbers_to_int <- function(col){
  strtoi(gsub(",", "", c))
}
#delete column 
col.rm <- function(df,col){
  df[, !(colnames(df) %in% c(col))]
}