
      set.seed(1)
      DF <- data.frame("Y" = rnorm(100))
      DF$D <- ifelse(DF$Y > 0, 1, 0)
      dummy_mod <- lm(Y ~ D, data = DF)


      # Reemplazar el `???` por los valores correctos
      plot(x = ??? , y = ???, 
      pch = 20, 
      cex = 1,
      col = "Steelblue",
      xlab = expression(D[i]), ylab = "Test Score",
      main = "Dummy Regression"
      )
      
      # agrega la línea de regresión


      plot(x = DF$D , y = DF$Y, 
      pch = 20, 
      cex = 1,
      col = "Steelblue",
      xlab = expression(D[i]), ylab = "Test Score",
      main = "Dummy Regression"
      )  
      abline(dummy_mod)


      test_predefined_objects(c("DF","dummy_mod"))
      test_function("abline")
      test_function("plot", args = c("x", "y"))
      success_msg("¡Lindo! ¡Claramente, una línea no es una forma adecuada de pensar en este modelo!")