Se tienen 2 distribiudoras de alimentos A y B.
Se tiene la sospecha de que uno de los 2 aparatos es mas efeciente que el otro. Para probar la sospecha se probaron ambos trituradores con 9 distintos alimentos, y se registraron los tiempos en minutos que le tomo a cada uno de los aparatos convertir el alimento en pure:
A: 0.5, 1.0, 1.2, 0.8, 0.4, 1.5, 0.3, 1.2 y 0.7
B: 0.6, 0.9, 1.2, 0.9, 0.5, 1.8, 0.4, 1.4 y 0.9
Se formularon las siguientes hipotesis:
H0: P(+) = P(-)
H1: P(+) != P(-)
A<-c(0.5, 1.0, 1.2, 0.8, 0.4, 1.5, 0.3, 1.2, 0.7)
B<-c(0.6, 0.9, 1.2, 0.9, 0.5, 1.8, 0.4, 1.4, 0.9)
n<-0
alpha<-0.05
t_minus<-0
t_mayus<-0
negativos<-0
positivos<-0
for(i in 1:length(A)){
if(A[i]==B[i]){
negativos=(negativos+1)
}else{
positivos=(positivos+1)
}
}
n=(length(A)-negativos)
t_mayus=positivos
t_minus=qbinom((alpha/2),n,0.5,lower.tail = TRUE, log.p = FALSE)
if((t_mayus<= t_minus) || ((n- t_minus)<t_mayus)){
print("Se rechaza H0")
print("Por lo tanto, la sospecha de que uno de los aparatos es mas eficiente que el otro es cierta con un nivel de 95% de confianza")
}else{
print("No se rechaza H0")
print("Por lo tanto, no exite inforacion suficiente para rechazar la sospecha de que uno de los 2 aparatos es mas eficiente que el otro")
}## [1] "Se rechaza H0"
## [1] "Por lo tanto, la sospecha de que uno de los aparatos es mas eficiente que el otro es cierta con un nivel de 95% de confianza"