data-raw/preprocess_directors_data.R

In JasperHG90/blm: Bayesian linear model

## Code used to create the 'directors' data
## Data is proprietary and cannot be shared

## Code used to create the 'directors' data
## Data is proprietary and cannot be shared

rm(list=ls())
# Subset
library(dplyr)
library(tidyr)
library(purrr)
library(forcats)
directors <- read.csv2("testing/FinalData.csv") %>%
  # Select only independent directors
  filter(isED == 0) %>%
  # Select only these variables
  select(Recent_Comp_Thous, Sector, isM, Age, Company, Industry) %>%
  # Keep these sectors
  filter(Sector %in% c("Basic Materials","Services", "Financial")) %>%
  # Refactor
  mutate(Sector = as_factor(as.character(Sector)),
         Sector = fct_relevel(Sector, "Financial")) %>%
  # Mutate into proper data types
  mutate(Industry = factor(as.character(Industry)),
         Male = factor(isM, levels=c(0,1)),
         Company = as.factor(as.character(Company))) %>%
  select(-isM) %>%
  rename(Compensation = Recent_Comp_Thous)

# Save data
devtools::use_data(directors, overwrite = TRUE)