library(foreign) library(dplyr) data_URL <- "https://github.com/Jeshua-Romero-Guadarrama/Econoalgoritmia/tree/main/data/fastfood.dta?raw=true" dat <- read.dta(data_URL) dat <- dat %>% mutate(FTE = nmgrs + empft + (0.5 * emppt), FTE2 = nmgrs2 + empft2 + (0.5 * emppt2)) dat_NJ <- subset(dat, state == 1) dat_PA <- subset(dat, state == 0) # configurar los datos para el análisis de regresión # configurar los datos para el análisis de regresión reg_dat <- data.frame( rbind( data.frame(id = dat$sheet, chain = dat$chain, state = dat$state, empl = dat$FTE, D = 0), data.frame(id = dat$sheet, chain = dat$chain, state = dat$state, empl = dat$FTE2, D = 1))) ex() %>% check_predefined_objects(c("dat", "dat_NJ", "dat_PA")) ex() %>% check_object("reg_dat", undefined_msg = "¡Asegúrate de no eliminar `reg_dat`!") %>% { check_column(., "id", col_missing_msg = "¿Ha agregado la columna `id` a `reg_dat`?") %>% check_equal(incorrect_msg = "¿Ha generado correctamente la columna `id` basada en`dat$sheet`?") check_column(., "chain", col_missing_msg = "¿Ha agregado la columna `cadena` a `reg_dat`?") %>% check_equal(incorrect_msg = "¿Ha generado correctamente la columna `chain` usando `dat$chain`?") check_column(., "state", col_missing_msg = "¿Ha agregado la columna `state` a `reg_dat`?") %>% check_equal(incorrect_msg = "¿Ha generado correctamente la columna `state` usando `dat$state`?") check_column(., "empl", col_missing_msg = "¿Ha agregado la columna `empl` a `reg_dat`?") %>% check_equal(incorrect_msg = "¿Ha generado correctamente la columna `empl` usando `dat$FTE` y `dat$FTE?`?") check_column(., "D", col_missing_msg = "¿Ha agregado la columna `D` a `reg_dat`?") %>% check_equal(incorrect_msg = "¿Ha generado correctamente la columna "D"? Tenga en cuenta que esta columna debe contener solo 0 y 1.") } success_msg(msg = "¡Bien hecho!")