# crear ambos vectores # graficar el diagrama de dispersión # crear ambos vectores cs <- c(23, 19, 30, 22, 23, 29, 35, 36, 33, 25) ts <- c(430, 430, 333, 410, 390, 377, 325, 310, 328, 375) # graficar el diagrama de dispersión plot(cs,ts) test_object("cs") test_object("ts") test_function("plot")