# compute the p-value for the first significance test and save it to p_int # compute the p-value for the second significance test and save it to p_cs # compute the p-value for the first significance test and save it to p_int t_int <- 567.43/23.9606 p_int <- 2*(1-pnorm(abs(t_int))) # compute the p-value for the second significance test and save it to p_cs t_STR <- 7.15/0.8536 p_STR <- 2*(1-pnorm(abs(t_STR))) test_object("p_int") test_object("p_STR")