# Load the remote work dataset
data(SD_data)
# Basic one-step estimation
fit_onestep <- one_step(log(salary) ~ wfh_wham + soc_2021_2 + employment_type_name,
data = SD_data)
summary(fit_onestep)
# With different error distribution
fit_t <- one_step(log(salary) ~ wfh_wham + soc_2021_2,
data = SD_data,
distribution = "t",
nu = 4)
summary(fit_t)
# Homoskedastic errors
fit_homo <- one_step(log(salary) ~ wfh_wham + soc_2021_2,
data = SD_data,
homoskedastic = TRUE)
summary(fit_homo)
Run the code above in your browser using DataLab