cs <- c(23, 19, 30, 22, 23, 29, 35, 36, 33, 25) ts <- c(430, 430, 333, 410, 390, 377, 325, 310, 328, 375) # calcular la media, varianza y desviación estándar de los puntajes de las pruebas # calcular la covarianza y el coeficiente de correlación # calcular la media, varianza y desviación estándar de los puntajes de las pruebas mean(ts) sd(ts) var(ts) # calcular la covarianza y el coeficiente de correlación cov(ts, cs) cor(ts, cs) test_predefined_objects("cs") test_predefined_objects("ts") test_function("mean", args = "x") test_function("sd", args = "x") test_output_contains("cov(ts,cs)") test_output_contains("cor(ts,cs)")