T<-c(9.8, 10.2, 10.4, 9.8, 10.0, 10.2, 9.6)
t.test(T,conf.level=0.95)
##
## One Sample t-test
##
## data: T
## t = 93.541, df = 6, p-value = 1.006e-10
## alternative hypothesis: true mean is not equal to 0
## 95 percent confidence interval:
## 9.738414 10.261586
## sample estimates:
## mean of x
## 10
9.85 | 9.93 | 9.75 | 9.77 | 9.67 |
---|---|---|---|---|
9.87 | 9.67 | 9.94 | 9.85 | 9.75 |
9.83 | 9.92 | 9.74 | 9.99 | 9.88 |
9.95 | 9.95 | 9.93 | 9.92 | 9.89 |
Se desea encontrar un nivel de confianza del 95% para el tiempo de combustión residual promedio. Supóngase que el tiempo de combustión residual sigue una distribución normal.
T<-c(9.85,9.93,9.75,9.77,9.67,9.87,9.67,9.94,9.85,9.75,
9.83,9.92,9.74,9.99,9.88,9.95,9.95,9.93,9.92,9.89)
t.test(T,conf.level=0.95)
##
## One Sample t-test
##
## data: T
## t = 456.8, df = 19, p-value < 2.2e-16
## alternative hypothesis: true mean is not equal to 0
## 95 percent confidence interval:
## 9.807357 9.897643
## sample estimates:
## mean of x
## 9.8525
El área a la derecha de F, es de 0.25 con \(v_1=4\) y \(v_2 =9\).
El área a la izquierda de F, es de 0.95 con \(v_1=15\) y \(v_2=10\).
El área a la derecha de F es de 0.95 con con \(v_1=6\) y \(v_2=8\).
El área a la izquierda de F, es de 0.10 con con \(v_1=24\) y \(v_2 =24\)
Método | Tamaño | Varianza |
---|---|---|
1 | 31 | 50 |
2 | 25 | 24 |
Construya un intervalo de confianza del 90% para la razón de varianzas Rta( 1.07 y 3.93 )
Una compañía fabrica propulsores para uso en motores de turbina. Al ingeniero de manufactura le gustaría seleccionar el proceso que tenga la menor variabilidad en la rugosidad de la superficie. Para ello toma una muestra de n1=16 partes del primer proceso, la cual tiene una desviación estándar \(s1=4.7\) micropulgadas, y una muestra aleatoria de n2=12 partes del segundo proceso, la cual tiene una desviación estándar \(s2=5.1\) micropulgadas. Se desea encontrar un intervalo de confianza del 90% para el cociente de las dos varianzas.
Una operación de montaje en una fábrica manufacturera requiere aproximadamente un período de entrenamiento de un mes para que un nuevo operario alcance la máxima eficiencia. Se sugirió un nuevo método para el entrenamiento y se realizó una prueba para comparar el método nuevo con el método estándar. Se entrenaron dos grupos de 9 nuevos empleados durante un período de un mes; un grupo utilizó el método estándar y el otro grupo usó el método nuevo. Se midió el tiempo en minutos que necesito cada empleado en armar cierto dispositivo al final del período de entrenamiento; los resultados obtenidos fueron:
Método estándar | 32 | 37 | 35 | 28 | 41 | 44 | 35 | 31 | 34 |
---|---|---|---|---|---|---|---|---|---|
Método nuevo | 35 | 31 | 29 | 25 | 34 | 40 | 27 | 32 | 31 |
Admitiendo que el tiempo de armado utilizado en ambos métodos son variables aleatorias independientes y distribuidas normalmente: ¿Tiene igual varianza? compruebelo a través de un intervalo de confianza para la razón de varianzas con un nivel de confianza del 90%
E<-c(32,37,35,28,41,44,35,31,34)
N<-c(35,31,29,25,34,40,27,32,31)
var.test(E,N, alternative = c("two.sided"),
conf.level = 0.9)
##
## F test to compare two variances
##
## data: E and N
## F = 1.2205, num df = 8, denom df = 8, p-value = 0.7849
## alternative hypothesis: true ratio of variances is not equal to 1
## 90 percent confidence interval:
## 0.3550003 4.1962955
## sample estimates:
## ratio of variances
## 1.220527
var(E)
## [1] 24.44444
var(N)
## [1] 20.02778
qf(0.05,8,8)
## [1] 0.2908582
¿Se puede aceptar la hipótesis de igualdad de tiempos de armado, en función de los datos construya un IC con un nivel de confianza del 95%?
E<-c(32,37,35,28,41,44,35,31,34)
N<-c(35,31,29,25,34,40,27,32,31)
t.test (E,N,paired=T,conf.level=0.95)
## Warning in if (paired) xok <- yok <- complete.cases(x, y) else {: the condition has
## length > 1 and only the first element will be used
## Warning in if (paired) {: the condition has length > 1 and only the first element
## will be used
## Warning in if (paired) "Paired t-test" else "One Sample t-test": the condition has
## length > 1 and only the first element will be used
## Warning in if (paired) "mean of the differences" else "mean of x": the condition
## has length > 1 and only the first element will be used
##
## Paired t-test
##
## data: E and N
## t = 2.9938, df = 8, p-value = 0.01723
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## 0.8423999 6.4909334
## sample estimates:
## mean of the differences
## 3.666667
t.test (E,N,paired=F,conf.level=0.95)
##
## Welch Two Sample t-test
##
## data: E and N
## t = 1.6495, df = 15.844, p-value = 0.1187
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -1.049486 8.382820
## sample estimates:
## mean of x mean of y
## 35.22222 31.55556
Estime la diferencia real de las medias poblacionales con un nivel de confianza del 95%.
Rta(0.72,6.72)
Rta(2.35,9.25)
Rta(0.72,6.72)
Medicamento | Tamaño de muestra | promedio | varianza |
---|---|---|---|
A | \(n_A=12\) | 26.8 | 12.57 |
B | \(n_B=32.6\) | 32.6 | 17.54 |