set.seed(123) portpirie <- runif(30, 3.6, 4.6) fremantle <- runif(30, 1.2, 1.8) # construct a 95%-confidence interval using t.test() # construct a 95%-confidence interval using t.test() t.test(portpirie, fremantle)$conf.int test_or(test_output_contains("t.test(portpirie, fremantle)$conf.int"), test_output_contains("t.test(fremantle, portpirie)$conf.int"))