8. Respecto a las muestras:

8.1 ¿Cuál sería el tamaño de muestra adecuado para cada una de las variables?

#lectura de datos 
setwd("C:/COPIA DE SEGURIDAD 2023/MAESTRÌA/PROCESOS ESTOCÀSTICOS/")

ruta_dir1 <- ("C:/COPIA DE SEGURIDAD 2023/MAESTRÌA/PROCESOS ESTOCÀSTICOS/DATOS_TALLER 1_R.xlsx")
TABLA_ORIGEN<- read_excel("DATOS_TALLER 1_R.xlsx")

Tamaño de la muestra

n <- length(TABLA_ORIGEN$`t [anos]`)
med_t <- median(TABLA_ORIGEN$`t [anos]`)
med_t

## [1] 9.323

Media_t <- mean(TABLA_ORIGEN$`t [anos]`)
Media_t

## [1] 9.487061

Desviación_t <- sd(TABLA_ORIGEN$`t [anos]`)
Desviación_t

## [1] 5.724939

C.V <- (Desviación_t/Media_t)
C.V

## [1] 0.6034471

nivel_de_confianza <- 0.95

# Cálculo del valor crítico z
valor_crítico_zs <- qnorm(1 - (1 - nivel_de_confianza) / 2)

# Imprimir el valor crítico Z
print(valor_crítico_zs)

## [1] 1.959964

#Tamaño de la muestra, fijo error 10%

n <- (valor_crítico_zs* (C.V/0.10))^2
n

## [1] 139.8861

Tamaño de la muestra para la variable X(años)

n <- length(TABLA_ORIGEN$`x [anos]`)
med_x <- median(TABLA_ORIGEN$`x [anos]`)
med_x

## [1] 0.2619

Media_x <- mean(TABLA_ORIGEN$`x [anos]`)
Media_x

## [1] 0.3711

Desviación_x <- sd(TABLA_ORIGEN$`x [anos]`)
Desviación_x

## [1] 0.3699892

C.V <- (Desviación_x/Media_x)
C.V

## [1] 0.9970068

nivel_de_confianza <- 0.95

# Cálculo del valor crítico z
valor_crítico_zs <- qnorm(1 - (1 - nivel_de_confianza) / 2)

# Imprimir el valor crítico Z
print(valor_crítico_zs)

## [1] 1.959964

#Tamaño de la muestra, fijo error 10%

n <- (valor_crítico_zs* (C.V/0.10))^2
n

## [1] 381.8497

Tamaño de la muestra para la variable costo

n <- length(TABLA_ORIGEN$`[$COP*10^6 ]`)
med_costo <- median(TABLA_ORIGEN$`[$COP*10^6 ]`)
med_costo

## [1] 32.6136

Media_costo <- mean(TABLA_ORIGEN$`[$COP*10^6 ]`)
Media_costo

## [1] 50.54507

desviacion <- sd(TABLA_ORIGEN$`[$COP*10^6 ]`)
desviacion

## [1] 59.88067

C.V <- (desviacion / Media_costo)
C.V

## [1] 1.184698

nivel_de_confianza <- 0.95

# Cálculo del valor crítico z
valor_crítico_zs <- qnorm(1 - (1 - nivel_de_confianza) / 2)

# Imprimir el valor crítico Z
print(valor_crítico_zs)

## [1] 1.959964

#Tamaño de la muestra, fijo error 10%

n <- (valor_crítico_zs* (C.V/0.10))^2
n

## [1] 539.1528

tamaño de la muestra para ttr(horas)

n <- length(TABLA_ORIGEN$`ttr [horas] c`)
med_ttr <- median(TABLA_ORIGEN$`ttr [horas] c`)
med_ttr

## [1] 3.7821

Media_ttr <- mean(TABLA_ORIGEN$`ttr [horas] c`)
Media_ttr

## [1] 5.396279

Desviación_ttr <- sd(TABLA_ORIGEN$`ttr [horas] c`)
Desviación_ttr

## [1] 5.502819

C.V <- (Desviación_ttr/Media_ttr)
C.V

## [1] 1.019743

nivel_de_confianza <- 0.95

# Cálculo del valor crítico z
valor_crítico_zs <- qnorm(1 - (1 - nivel_de_confianza) / 2)

# Imprimir el valor crítico Z
print(valor_crítico_zs)

## [1] 1.959964

#Tamaño de la muestra, fijo error 10%

n <- (valor_crítico_zs* (C.V/0.10))^2
n

## [1] 399.4642