Question 1 of 1
In a study the transport delivery times for three transport firms are compared, and the study also involves the size of the transported item. For delivery times in days, the following data found:
|Firms||Small item||Intermediate item||Large item||Row average|
A 95% confidence interval for the potential difference in means between Firm A and B is wanted, but without the assumption of normally distributed data. The following R code was used to find a bootstrap-based confidence interval:
x = c(1.4,2.5,2.1) y = c(0.8,1.8,1.9) k = 10000 # Number of bootstrap samples xsamples = replicate(k, sample (x, replace = TRUE)) ysamples = replicate(k, sample (y, replace = TRUE)) mymeandifs = apply(xsamples, 2, mean)-apply(ysamples, 2, mean) mybootquantiles=quantile(mymeandifs, c(0.005,0.01,0.025,0.05,0.95,0.975,0.99,0.995)) round(mybootquantiles,3)
The next to last R-line finds eight different percentiles of the bootstrap distribution, which in the last line is printed out with 3 significant figures:
0.5% 1% 2.5% 5% 95% 97.5% 99% 99.5% -0.433 -0.267 -0.233 -0.133 1.200 1.300 1.433 1.567
What is the 95% confidence interval for the possible difference in means between Firm A and B based on this?