data_URL <- "https://github.com/Jeshua-Romero-Guadarrama/Econoalgoritmia/tree/main/data/fastfood.dta?raw=true" # adjuntar los paquetes # leer en el conjunto de datos y asignarlo a `dat` # agregar FTE y FTE2 a `dat` # attach the packages library(dplyr) library(foreign) # leer en el conjunto de datos y asignarlo a `dat` dat <- read.dta(data_URL) # agregar FTE y FTE2 a `dat` dat <- dat %>% mutate(FTE = nmgrs + empft + (0.5 * emppt), FTE2 = nmgrs2 + empft2 + (0.5 * emppt2)) ex() %>% check_library("foreign") ex() %>% check_library("dplyr") ex() %>% check_object("dat", undefined_msg = "¡No ha definido "dat"!") %>% check_equal() success_msg(msg = "¡Correcto!",praise = T)