Punto 5 Preparcial

Definir los datos de la distribución de ingresos

clases <- c(18, 26, 36, 40, 48, 55, 75)
frecuencias_acumuladas <- c(15, 29, 36, 44, 56, 68, 90)

Total de empleados en la empresa III

N <- 90

Determinar los percentiles

p19 <- 0.19 * N  # 19% empleados con menores ingresos
p55 <- 0.55 * N  # 19% + 36% empleados con ingresos medios
p85 <- 0.85 * N  # 19% + 36% + 30% empleados con ingresos medios altos

Función para encontrar el límite salarial dado un percentil

buscar_limite <- function(p, clases, frecuencias) {
  for (i in 1:length(frecuencias)) {
    if (frecuencias[i] >= p) {
      return(clases[i])
    }
  }
  return(NA)
}

Calcular los límites salariales

limite_menores <- buscar_limite(p19, clases, frecuencias_acumuladas)
limite_medios <- buscar_limite(p55, clases, frecuencias_acumuladas)
limite_medios_altos <- buscar_limite(p85, clases, frecuencias_acumuladas)
limite_altos <- max(clases)  

Mostrar resultados

cat("Límites salariales de los grupos:\n")

## Límites salariales de los grupos:

cat("Menores ingresos (Crédito auto): Hasta", limite_menores, "USD\n")

## Menores ingresos (Crédito auto): Hasta 26 USD

cat("Ingresos medios (Crédito vivienda): ", limite_menores, "-", limite_medios, "USD\n")

## Ingresos medios (Crédito vivienda):  26 - 48 USD

cat("Ingresos medios altos (Estudios especialización): ", limite_medios, "-", limite_medios_altos, "USD\n")

## Ingresos medios altos (Estudios especialización):  48 - 75 USD

cat("Ingresos altos (Maestría exterior): ", limite_medios_altos, "-", limite_altos, "USD\n")

## Ingresos altos (Maestría exterior):  75 - 75 USD

Mostrar cantidad de empleados beneficiados

cat("\nNúmero de empleados beneficiados en cada grupo:\n")

## 
## Número de empleados beneficiados en cada grupo:

cat("Menores ingresos (Crédito auto):", round(p19), "empleados\n")

## Menores ingresos (Crédito auto): 17 empleados

cat("Ingresos medios (Crédito vivienda):", round(p55 - p19), "empleados\n")

## Ingresos medios (Crédito vivienda): 32 empleados

cat("Ingresos medios altos (Estudios especialización):", round(p85 - p55), "empleados\n")

## Ingresos medios altos (Estudios especialización): 27 empleados

cat("Ingresos altos (Maestría exterior):", round(N - p85), "empleados\n")

## Ingresos altos (Maestría exterior): 14 empleados

Análisis de los Datos

Distribución Salarial:

La mayor parte de los empleados se encuentra en los rangos de ingresos medios y medios altos. Un 19% de los empleados tienen los menores ingresos, lo que sugiere la existencia de un grupo que podría necesitar más apoyo financiero.

• El 36% de los empleados tienen ingresos medios, lo que indica que más de un tercio de la fuerza laboral se encuentra en una situación de estabilidad relativa.

• Un 30% pertenece al grupo de ingresos medios altos, lo que muestra que una proporción significativa de empleados está en una posición favorable para continuar su desarrollo profesional.

• El grupo restante, con los ingresos más altos, representa un sector reducido pero clave en la empresa, con oportunidades avanzadas de capacitación.

Implicaciones de los Beneficios:

Crédito para automóvil:

Beneficia a los empleados con menores ingresos, ayudándolos a mejorar su movilidad y calidad de vida.

Crédito para vivienda:

Dirigido al segmento de ingresos medios, fomenta la estabilidad personal y el arraigo de los empleados en la empresa.

Apoyo para estudios de especialización:

Incentiva el crecimiento profesional en empleados con ingresos medios altos, lo que puede mejorar el desempeño y la innovación en la empresa.

Maestría en el exterior:

Brinda oportunidades de alto nivel para el grupo con mayores ingresos, asegurando que los empleados con mayor potencial de liderazgo tengan acceso a formación internacional.

Conclusión General

El análisis muestra que la empresa tiene una estructura salarial relativamente equilibrada, con una distribución de ingresos que favorece a la mayoría de los empleados dentro de los niveles medios y medios altos. La asignación de beneficios está alineada con las necesidades específicas de cada segmento, asegurando oportunidades de desarrollo tanto económico como profesional.