Ejercicio 9.42

Un experimento publicado en Popular Science compara las economías en combustible para dos tipos de camiones compactos a diesel equipados de forma similar. Supongamos que se utilizaron \(12\) camiones Volkswagen y \(10\) Toyota en pruebas de velocidad constante de \(90\) kilómetros por hora. Si los \(12\) camiones Volkswagen promedian \(16\) kilómetros por litro con una desviación estándar de \(1.0\) kilómetro por litro y los \(10\) Toyota promedian \(11\) kilómetros por litro con una desviación estándar de \(0.8\) kilómetros por litro, construya un intervalo de confianza de \(90\%\) para la diferencia entre los kilómetros promedio por litro de estos dos camiones compactos. Suponga que las distancias por litro para cada modelo de camión están distribuidas de forma aproximadamente normal con varianzas iguales.

Las dos muestras se denotan como \(n_1=12\) y \(n_2=10\). Las medias muestrales respectivas son \(\overline{x}_1=16\) y \(\overline{x}_2=11\). Para las desviaciones muestrales se tiene \(s_1=1.0\) para Volkswagen y \(s_2=0.8\) para Toyota, y como se suponen varianzas poblacionales iguales, la estimación puntual de la desviación estándar de la unión de las varianzas es \(s_p=\sqrt{\frac{(n_1-1)s_1^2+(n_2-1)s_2^2}{n_1+n_2-2}}=\sqrt{\frac{(12-1)1.0^2+(10-1)0.8^2}{12+10-2}}=0.9154234\). Así, el intervalo de confianza al \(90\%\) para la diferencia de medias es \((\overline{x}_1-\overline{x}_2)-t_{\alpha/2}s_p\sqrt{\frac{1}{n_1}+\frac{1}{n_2}}<\mu_1-\mu_2<(\overline{x}_1-\overline{x}_2)+t_{\alpha/2}s_p\sqrt{\frac{1}{n_1}+\frac{1}{n_2}}=(16-11)-t_{.05}(.9154234)\sqrt{\frac{1}{12}+\frac{1}{10}}<\mu_1-\mu_2<(16-11)+t_{.05}(.9154234)\sqrt{\frac{1}{12}+\frac{1}{10}}\), que da un intervalo de

(16-11)+c(-qt(.95,10+12-2)*.9154234*sqrt(1/12+1/10),qt(.95,10+12-2)*.9154234*sqrt(1/12+1/10))
## [1] 4.323978 5.676022

Es decir \(4.3 < \mu_1-\mu_2 < 5.7\)

Ejercicio 9.43

Una compañía de taxis trata de decidir si comprar neumáticos de la marca \(A\) o de la \(B\) para su flotilla de taxis. Para estimar la diferencia de las dos marcas, se lleva a cabo un experimento utilizando \(12\) neumáticos de cada marca. Los neumáticos se utilizan hasta que se desgastan. Los resultados son

Marca A: \(\overline{x}_1 = 36,300\) kilómetros, \(\\\)

\(\,\,\,\,\,\,\,\,\,\,\,\,\,\,\,\,\,\,\,\,\ s_1= \,\,\ 5,000\) kilómetros. \(\\\)

Marca B: \(\overline{x}_2 = 38,100\) kilómetros, \(\\\)

\(\,\,\,\,\,\,\,\,\,\,\,\,\,\,\,\,\,\,\,\,\ s_2= \,\,\ 6,100\) kilómetros. \(\\\)

Calcule un intervalo de confianza de \(95\%\) para \(µ_A − µ_B\), suponiendo que las poblaciones se distribuyen de forma aproximadamente normal. Puede no suponer que las varianzas son iguales.

Para este caso \(n_A = n_B = 12, x_A = 36, 300, x_ B = 38, 100, s_A = 5, 000, s_B = 6, 100\) y los grados de libertad ajustados a la heterocedasticidad y redondeados hacia abajo son

\[v=\frac{(s_A^2/n_A+s_B^2/n_B)^2}{\frac{(s_A^2/n_A)^2}{n_A-1}+\frac{(s_B^2/n_B)^2}{n_B-1}}=\frac{(5000^2/12+6100^2/12)^2}{\frac{(5000^2/12)^2}{11}+\frac{(6100^2/12)^2}{11}}=21.18395\approx 21\] Con esto el intervalo de confianza se calcula como \((\overline{x}_A-\overline{x}_B)\pm t_{\alpha/2}\sqrt{\frac{s_A^2}{n_A}+\frac{s_B^2}{n_B}}=(36, 300 − 38, 100)\pm t_{0.025}\sqrt{\frac{5000^2}{12}+\frac{6100^2}{12}}\), que da un valor de

(36300 - 38100)+c(-qt(.975,21)*sqrt(5000**2/12+6100**2/12),qt(.975,21)*sqrt(5000**2/12+6100**2/12))
## [1] -6535.024  2935.024

Así se tiene que \(−6, 536 < \mu_A − \mu_B < 2, 936\).

Ejercicio 9.46

Los siguientes datos representan los tiempos de duración de las películas que producen dos compañías cinematográficas.

Compañía Tiempo (minutos)
I 103 94 110 87 98
II 97 82 123 92 175 88 118

Calcule un intervalo de confianza de \(90\%\) para la diferencia entre los tiempos de duración promedio de las películas que producen las dos compañías. Suponga que las diferencias del tiempo de duración se distribuyen de forma aproximadamente normal con varianzas distintas.

Los datos para este caso son \(n_I = 5, n_{II} = 7, \overline{x}_ I = 98.4, \overline{x}_{II} = 110.7, s_I = 8.375, s_{II} = 32.185\) y los grados de libertad redondeados son

\[v=\frac{(s_I^2/n_I+s_{II}^2/n_{II})^2}{\frac{(s_I^2/n_I)^2}{n_I-1}+\frac{(s_{II}^2/n_{II})^2}{n_{II}-1}}=\frac{(8.735^2/5 + 32.185^2/7)^2}{\frac{(8.735^2/5)^2}{4}+\frac{(32.185^2/7)^2}{6}}= 7.186622\approx 7\]

Por lo que el intervalo de confianza es \((\overline{x}_I-\overline{x}_{II})\pm t_{\alpha/2}\sqrt{\frac{s_I^2}{n_I}+\frac{s_I^2}{n_{II}}}=(110.7 − 98.4)\pm t_{0.05}\sqrt{\frac{8.735^2}{5}+\frac{32.185^2}{7}}\), que da un valor de

(110.7 - 98.4)+c(-qt(.95,7)*sqrt(8.735**2/5+32.185**2/7),qt(.95,7)*sqrt(8.735**2/5+32.185**2/7))
## [1] -11.90632  36.50632

Y la diferencia se encuentra entre \(-11.9 < \mu_I-\mu_{II}<36.5\).

Ejercicio 9.77

Construya un intervalo de confianza de \(98\%\) para \(σ_1 /σ_2\) en el ejercicio \(9.42\), donde \(σ_1\) y \(σ_2\) son, respectivamente, las desviaciones estándar para las distancias que se obtienen por litro de combustible en los camiones compactos Volkswagen y Toyota.

Con \(s^2_1 = 1.00^2, s^2_2 = 0.8^2\) y \(v_1=12-1, v_2=10-1\), el intervalo es \(\frac{s_1^2}{s_2^2}\frac{1}{f_{\alpha/2}(v_1,v_2)}<\frac{\sigma_1^2}{\sigma_2^2}<\frac{s_1^2}{s_2^2}f_{\alpha/2}(v_2,v_1)=\frac{1.00}{0.64}\frac{1}{f_{0.01}(11,9)}<\frac{\sigma_1^2}{\sigma_2^2}<\frac{1.00}{0.64}f_{0.01}(9,11)\), y sus valores extremos en raíz cuadrada son de

sqrt(c((1/0.64)/qf(0.99,11,9),(1/0.64)*qf(0.99,9,11)))
## [1] 0.5493303 2.6901266

Por lo que \(0.549 < \frac{σ_1}{σ_2} < 2.690\).

Ejercicio 9.78

Construya un intervalo de confi anza de \(90\%\) para \(\sigma_1^2/\sigma_2^2\) en el ejercicio \(9.43\). ¿Estamos justificados al suponer que \(\sigma_1^2 \neq\sigma_2^2\) cuando construimos nuestro intervalo de confianza para \(\mu_1 - \mu_2\) ?

Ahora \(s^2_1 = 5000^2, s^2_2 = 6100^2\) y \(v_1=v_2=11\), y el intervalo es \(\frac{s_1^2}{s_2^2}\frac{1}{f_{\alpha/2}(v_1,v_2)}<\frac{\sigma_1^2}{\sigma_2^2}<\frac{s_1^2}{s_2^2}f_{\alpha/2}(v_2,v_1)=\Big(\frac{5000}{6100}\Big)^2\frac{1}{f_{0.05}(11,11)}<\frac{\sigma_1^2}{\sigma_2^2}<\Big(\frac{5000}{6100}\Big)^2f_{0.05}(11,11)\). Calculando sus valores extremos se tiene

c((5000/6100)**2/qf(0.95,11,11),(5000/6100)**2*qf(0.95,11,11))
## [1] 0.2384241 1.8932615

Como \(0.2384241 < 1 < 1.8932615\), se puede asumir que \(\sigma_1^2=\sigma_2^2\).

Ejercicio 9.79

Construya un intervalo de confianza de \(90\%\) para \(\sigma_1^2/\sigma_2^2\) en el ejercicio \(9.46\). ¿Deberíamos suponer \(\sigma_1^2=\sigma_2^2\) al construir nuestro intervalo de confianza para \(\mu_I − \mu_{II}\) ?

En este caso \(s^2_I = 76.3, s^2_{II} = 1035.905\) y \(v_1=5-1, v_2=7-1\). El intervalo es \(\frac{s_I^2}{s_{II}^2}\frac{1}{f_{\alpha/2}(v_1,v_2)}<\frac{\sigma_I^2}{\sigma_{II}^2}<\frac{s_I^2}{s_{II}^2}f_{\alpha/2}(v_2,v_1)=\Big(\frac{76.3}{1035.905}\Big)^2\frac{1}{f_{0.05}(4,6)}<\frac{\sigma_I^2}{\sigma_{II}^2}<\Big(\frac{76.3}{1035.905}\Big)^2f_{0.05}(6,4)\). Los valores extremos son

c((76.3/1035.905)/qf(0.95,4,6),(76.3/1035.905)*qf(0.95,6,4))
## [1] 0.01624628 0.45394799

Como \(0.016 < 0.454 < 1\), se puede asumir que \(\sigma_1^2 \neq \sigma_2^2\).