custom_seed(123) X <- runif(100, 900, 1000) Y <- 3*X+rnorm(100, 0, 100) # Calcular la varianza de X con cov () # Calcular la covarianza de X e Y # Calcular la correlación entre X e Y # Calcular la varianza de X con cov () cov(X, X) # Calcular la covarianza de X e Y cov(X, Y) # Calcular la correlación entre X e Y cor(X, Y) test_function_result("cov", index = 1) test_output_contains("cov(X,Y)") test_output_contains("cov(X,Y)/(sd(X)*sd(Y))")