# calcular el valor p para la primera prueba de significancia y guardar el resultado en p_int # calcular el valor p para la segunda prueba de significancia y guardar el resultado en p_cs # calcular el valor p para la primera prueba de significancia y guardar el resultado en p_int t_int <- 567.43/23.9606 p_int <- 2*(1-pnorm(abs(t_int))) # calcular el valor p para la segunda prueba de significancia y guardar el resultado en p_cs t_STR <- 7.15/0.8536 p_STR <- 2*(1-pnorm(abs(t_STR))) test_object("p_int") test_object("p_STR")