0
Correct
0
Incorrect
1
Total

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
Firm A 1.4 2.5 2.1 2.00
Firm B 0.8 1.8 1.9 1.50
Firm C 1.6 2.0 2.4 2.00
Column average 1.27 2.10 2.13  

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?