custom_seed(123) X <- runif(100, 0, 3) Y <- exp(-X) + rnorm(100, 0, .05) plot(Y ~ X) # Calcular la correlación entre X e Y # Calcular la correlación entre X e Y cor(X, Y) test_output_contains("cor(X, Y") success_msg("¡Correcto! La correlación es capaz de capturar la relación negativa entre ambas variables. Sin embargo, solo mide dependencias lineales, mientras que la dependencia aquí es claramente no lineal (exponencial).")