### Main R Script for codes in folder "Codes/05_Mlogit_model_annex"

# Cleaning workspace 
rm(list= ls())

# Paths -------------------------------------------------------------------

# Set package path ---

# Replace "your/path/to/Reproducibility_package" with the actual path to your package.

root_dir <- "C:/Users/wb519501/OneDrive - WBG/Desktop/RR_WLD_2025_528/files upload/v3/Reproducibility_package"

data_dir <- file.path(root_dir, "Data", "Raw")

cleaned_data_dir <- file.path(root_dir, "Data", "Cleaned")

# Libraries ---------------------------------------------------------------

install.packages("pacman")

require(pacman)

p_load(dplyr,            # For data manipulation
       tidyr,            # For reshaping data
       purrr,            # For iterating results into a df  
       haven,            # For reading .dta files  
       stats,            # For dropping rows with NAs
       fastDummies,      # For creating dummy variables
       WDI,              # For downloading World Development Indicators
       wbstats,          # # For downloading WB data/indicators
       readxl,           # For reading .xlsx files
       forcats           # For reordering factor levels  
       )

# R scripts ---------------------------------------------------------------

source(file.path(root_dir, "Codes", "05_Mlogit_model_annex", "01-processing-micro-data.R"))

source(file.path(root_dir, "Codes", "05_Mlogit_model_annex", "02-data-preparation-mlogit.R"))
