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) # probar si la diferencia en el empleo medio en Nueva Jersey es cero antes y después del aumento salarial # probar si la diferencia en el empleo medio en Nueva Jersey es cero antes y después del aumento salarial t.test(dat_NJ$FTE, dat_NJ$FTE2) ex() %>% check_predefined_objects(c("dat", "dat_NJ", "dat_PA")) ex() %>% check_or( ex() %>% check_function("t.test") %>% check_result() %>% check_equal(), override_solution(., "t.test(dat_NJ$FTE2, dat_NJ$FTE)") %>% check_function("t.test") %>% check_result() %>% check_equal(incorrect_msg = "Su llamada de `t.test ()` no es correcta.")) success_msg(msg = "¡Correcto! Dado que el valor p es 0.4191, no se puede rechazar la hipótesis nula de que no hay diferencia en el empleo promedio en Nueva Jersey antes y después del aumento del salario mínimo.")