Plantilla para los trabajos
Utiliza este documento para presentar las prácticas de una manera sencilla y bonita.
Unos estudiantes de la UCLM hacen unas encuestas de satisfacción en la cafeteria de la escuela, los clientes tienen la opción de calificar su experiencia como “excelente”, “buena”, “regular” o “mala”. La probabilidad de que un cliente califique su experiencia como “excelente” es del 25%, como “buena” es del 40%, como “regular” es del 20%, y como “mala” es del 15%. Además, suponemos que las calificaciones de los clientes son independientes.
1.¿Cuál es la probabilidad de que tres clientes consecutivos califiquen su experiencia como “buena”?
\(dbinom(3, 3,0.40) = 0.064\)
2.¿Cuál es la probabilidad de que al menos uno de los tres clientes califique su experiencia como “mala”?
\(1-dbinom(0, 3, 0.15) = 0.385875\)
3.¿Cuál es la probabilidad de que exactamente dos clientes califiquen su experiencia como “regular” y el tercero como “excelente”?
\(dbinom(2, 3, 0.20) = 0.096\)
4.¿Cuál es la probabilidad de que ninguno de los tres clientes califique su experiencia como “mala”?
\(dbinom(0, 3, 0.15) = 0.614125\)
5.¿Cuál es la probabilidad de que al menos dos de los tres clientes califiquen su experiencia como “buena” o “excelente”?
\(1-dbinom(1, 3, 0.20+0.15) = 0.556375\)
#Tema 5-Variable aleatoria exponencial
Sean X una variable exponencial de media 3.
\(P(X\leq 2)\)=
pexp(2,1/3)
## [1] 0.4865829
También se puede poner así \(P(X\leq 2)\)=pexp(2,1/3)=0.4865829
\(P(X>
3)=1-P(X\leq 3)\)=pexp(3,1/3)=0.6321206
\(P(X>
3/X>2)\frac{P(X>3)}{P(X>2)}=\frac{1-P(X<3)}{1-P(X<2)}\)=(1-pexp(3,1/3))/(1-pexp(2,1/3))=0.7165313
Tenemos que calcular M tal que \(P(X<M)=0.5\) con r se puede hacer
directamente así, qexp(0.5,1/3)=2.0794415. Lo podéis
comprobar haciendo pexp(qexp(0.5,1/3),1/3)=0.5
***
Tenemos dos grupos de estudiantes de dos centros distintos en uno tenemos X1=7.36 y s1=1.25 y en el otro X2=6.8 y s2=1.9.Para el primer grupo tenemos 16 estudiantes y para el segundo 18, se supone que las medias de las notas siguen distribuciones normales.
a)Se puede decir que la media del primer centro es menor de 7 con alpha=0.03. b)¿La media de las notas es similar en ambos centros? Es decir, las diferencias obtenidas son debidas al azar.
t_s=((x1-nu_0)/(s1/sqrt(n1))) #Si es por la izquierda: pt(t_s,n1-1)
t_s
//Como p_valor no es menor que alpha=0.03, no se puede decir que la media sea menor de 7, las diferencias son debidas al azar.
mayor2/menor2> o = 2
1.92/1.252=2.57>2.Por lo que se confirma.
t_s=((x1-x2)-d_0)/(sqrt(((s12)/(n1))+((s22)/(n2))))
2*(1-pt(abs(t_s),nu))
t_s