Programmatically recode variables (for @lpsatchell)

twitter_recode.R

# Generate Fake Data

fake_data <- sample(x = c(1:5), size = 100, replace = T) %>% 
  matrix(ncol = 10)

# We want to programmatically recode these.
  # 5 to 1 (and vice versa)
  # 4 to 2 (and vice versa)

recoding_function <- function(x){
  (max(x) - x) + 1
}

recoded_fake_data <- apply(fake_data, 2, recoding_function)

fake_data

recoded_fake_data