Actividad 2. La Normal

Descargar como pdf o txt
Descargar como pdf o txt
Está en la página 1de 5

Tecnológico de Estudios Superiores de Monterrey

Campus Monterrey

Análisis estadístico

Grupo 318

Profesora Dra. Blanca R. Ruiz Hernández

Actividad 2. La Normal

Nahim Giovanni Cruz Cordova - A00819343


1. Para una variable aleatoria que se distribuye como una Normal con media 100 y
desviación estándar
15, calcula:
## a.
¿Qué porcentaje de la población de x es inferior a 70?

```{r}

media <- 100


desviacion <- 15
x <- 70

solu <- pnorm(x, mean = media, sd = desviacion)


porcentaje <- solu * 100

porcentaje

```
[1] 2.275013

## b.
Hallar los valores de x que corresponden al 5% repartido en los extremos (bilateral)

```{r}

media <- 100


desviacion <- 15
porcentaje <- 0.05

inf <- qnorm(porcentaje/2, mean = media, sd = desviacion)

sup <- qnorm(1 - porcentaje/2, mean = media, sd = desviacion)

inf
sup

```
[1] 70.60054
[1] 129.3995

##c.
¿A cuántas desviaciones estándar estará el 5% extremo inferior y cuál es su valor en X?

```{r}
inferior <- 0.05
xinferior <- qnorm(inferior,0, media, desviacion)

desviacionesestandar <- (xinferior - media) / desviacion

xinferior
desviacionesestandar

```
[1] -164.4854
[1] -17.63236

¡Ah!... la Z
1. Calcula las probabilidades para una variable aleatoria Z con Distribución Normal Estándar
tales
que:
##a. P(0 ≤ Z ≤ 1.2)

```{r}

z1 <- 0
z2 <- 1.2

prob <- pnorm(z2) - pnorm(z1)

prob

```
[1] 0.3849303

## b.
P(0.3 ≤ Z ≤ 1.56)

```{r}
z3 <- 0.3
z4 <- 1.56

probdos <- pnorm(z4) - pnorm(z3)

probdos

```
[1] 0.3227086

## 3.
Considérese una variable aleatoria X con distribución de población normal con media μ y
desviación estándar σ de la cual se obtiene un dato al azar. Para un valor x indaga:

## a.

¿Cuál es la probabilidad de que el valor x esté 2.81 desviaciones estándar alrededor de la


media?

```{r}

a1 <- 2.81

valor <- pnorm(a1) - pnorm(-a1)

valor

```
[1] 0.9950459

## b.
¿Cuál es la probabilidad de que el valor x esté 1.44 desviaciones estándar alrededor de la
media?

```{r}
b1 <- 1.44

valor1 <- pnorm(b1) - pnorm(-b1)

valor1

```
[1] 0.8501326

## c.
¿Cuántas desviaciones estándar hay que sumarle a la media para que la probabilidad de
que
el valor x esté ese número de desviaciones estándar alrededor de la media sea de 0.997?

```{r}

c1 <- 0.997

valor3 <- qnorm((1 + c1) / 2)

valor3

```
[1] 2.967738
## d.
¿Cuántas desviaciones estándar hay que sumarle a la media para que la probabilidad
alrededor de la media sea de 0.75?

```{r}
d1 <- 0.75

valor4 <- qnorm((1 + d1) / 2)

valor4

```
[1] 1.150349

## La medida exacta

Hay dos máquinas disponibles para cortar corchos para usarse en botellas de vino. La
primera produce
corchos con diámetros que están normalmente distribuidos con media de 3 cm y desviación
estándar
de 0.1 cm. La segunda máquina produce corchos con diámetros que tienen una distribución
normal con
media de 3.04 y desviación estándar de 0.02 cm. Los corchos útiles en la industria vinícola
tienen
diámetros de entre 2.9 y 3.1 cm. ¿Cuál es la máquina que es más probable que produzca
un corcho
aceptable? Calcula las probabilidades para comprobarlo.

```{r}
miu <- 3
sigma <- 0.1

form1 <- pnorm(3.1, mean = miu, sd = sigma) - pnorm(2.9, mean = miu, sd = sigma)

miu1 <- 3.04


sigma1 <- 0.02

form2 <- pnorm(3.1, mean = miu1, sd = sigma1) - pnorm(2.9, mean = miu1, sd = sigma1)

form1
form2

```
[1] 0.6826895
[1] 0.9986501

También podría gustarte