Code for World Bank Partner Project -- "Measuring the Effect of Public Bureaucracy on Educational Outcomes in Sierra Leone Using Double Machine Learning"
Data needed in Raw folder (files marked as "World Bank" are not public):
GDP_grid_flt.tif (
ngdc.noaa.gov)
g2014_2015_2.geojson (World Bank)
public_officials_indicators_data (R Workspace - World Bank)
school_survey_data (R Workspace - World Bank)
WB_admin_boundaries (R Workspace - Wortld Bank)
EPDash_linkfile_hashed.csv (World Bank)
Data generated:
sle_merged_altered.xlsx
All Files Dependent on First Running:
DataPrep (1) Relink Reweights
File Structure:
├── DataPrep (1) Relink Reweights.Rmd
├── DataGraphics (1) Heatmap.R
├── DataGraphics (2) Summary Tables.R
├── Results (1) Regressions.do
├── Results (2) LO_DML.ipynb
├── Results (3) LO_DML_5Covars.ipynb
├── Raw/
Variable Definitions:
absence_rate = m2sbq6_efft==6 | m2sbq6_efft==5 | teacher_available==2
student_attendance = m4scq4_inpt/m4scq12_inpt
content_proficiency = 100*as.numeric(content_knowledge>=80)
ecd_student_proficiency = 100*as.numeric(student_knowledge>=86.6
infrastructure = (drinking_water+ functioning_toilet+ internet + class_electricity+ disability_accessibility)
teach_score = rowMeans(select(.,classroom_culture, instruction, socio_emotional_skills)
operational_management = 1+vignette_1+vignette_2
instructional_leadership = 1+0.5 * classroom_observed + 0.5 * classroom_observed_recent + discussed_observation + feedback_observation + lesson_plan_w_feedback)
principal_knowledge_score = case_when(
principal_knowledge_avg >0.9 ~ 5,
(principal_knowledge_avg >0.8 & principal_knowledge_avg 0.7 & principal_knowledge_avg 0.6 & principal_knowledge_avg<=0.7) ~ 2,
(principal_knowledge_avg <=0.6 ) ~ 1 )
principal_management = (goal_setting+problem_solving)/2
teacher_attraction = 1+0.8 * teacher_satisfied_job+ .8 * teacher_satisfied_status+.8 * better_teachers_promoted+.8 * teacher_bonus+.8*(1-salary_delays/12))
teacher_selection_deployment = 1+teacher_selection+teacher_deployment
teacher_support = pre_service=pre_training_exists+pre_training_useful,
practicum=pre_traini …