# 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_STR
t_STR <- 7.15/0.8536
p_STR <- 2*(1-pnorm(abs(t_STR)))
test_object("p_int")
test_object("p_STR")