# Homework 13 template
# ====================

# Goal: Estimate gender gap in Czech Republic


# clear workspace
rm(list = ls())

# Datafiles are available in IS
load("HW_wages_select.Rdata")

# edit the following lines

# estimated model (lm object) comes here
emodel <-

# table with robust SE
etab <-

# adjusted R2
adjR2 <-

# correlation of observed and fitted values
cor_OF <-

# do not edit following
# - save results
save(emodel,etab,adjR2,cor_OF, file = "results.RData")