1.Datos Iniciales

Crear la tabla de frecuencias

ni <- c(4, 12, 20, 24, 20)

Crear la tabla de frecuencias

tabla_frecuencias <- data.frame(
  Xi = c(5, 10, 15, 20, 25),  
  ni = c(4, 12, 20, 24, 20)   
)

Filtrar los datos donde 5 < Xi < 20

datos_filtrados <- subset(tabla_frecuencias, Xi > 5 & Xi < 20)

Sumar las frecuencias de estos datos

total_datos_filtrados <- sum(datos_filtrados$ni)

Mostrar el resultado

cat("Cantidad de datos mayores que 5 pero menores que 20:", total_datos_filtrados, "\n")
## Cantidad de datos mayores que 5 pero menores que 20: 32

Punto B

Filtrar los datos menores o iguales que 15

datos_filtrados <- subset(tabla_frecuencias, Xi <= 15)

Sumar las frecuencias absolutas de estos datos

total_datos <- sum(datos_filtrados$ni)

Mostrar el resultado

cat("El número de datos menores o iguales que 15 es:", total_datos, "\n")
## El número de datos menores o iguales que 15 es: 36

Punto c

Crear tabla de frecuencias

tabla_frecuencias <- data.frame(
  Xi = c(5, 10, 15, 20, 25),
  ni = c(4, 12, 20, 24, 20)
)

Filtrar los datos mayores que 5 y menores que 20

datos_filtrados <- subset(tabla_frecuencias, Xi > 5 & Xi < 20)

Sumar las frecuencias absolutas de estos datos

total_datos <- sum(datos_filtrados$ni)

Mostrar el resultado

cat("El número de datos mayores que 5 pero menores que 20 es:", total_datos, "\n")
## El número de datos mayores que 5 pero menores que 20 es: 32

Datos iniciales

Xi <- c(5, 10, 15, 20, 25)
n_total <- 80

Frecuencia absoluta

ni <- c(4, 12, 20, 24, 20)

Frecuencia relativa

hi <- ni / n_total

##Frecuencia absoluta acumulada

Ni <- cumsum(ni)

Frecuencia relativa acumulada

Hi <- Ni / n_total

Crear la tabla final

tabla <- data.frame(Xi, ni, hi, Ni, Hi)

Calcular la cantidad de datos mayores que 5 y menores que 20

cantidad_datos <- sum(ni[Xi > 5 & Xi < 20])

Calcular la cantidad de datos menores o iguales que 15

cantidad_menor_igual_15 <- sum(ni[Xi <= 15])

Mostrar la tabla y los resultados

print(tabla)
##   Xi ni   hi Ni   Hi
## 1  5  4 0.05  4 0.05
## 2 10 12 0.15 16 0.20
## 3 15 20 0.25 36 0.45
## 4 20 24 0.30 60 0.75
## 5 25 20 0.25 80 1.00
print(paste("Cantidad de datos mayores que 5 y menores que 20:", cantidad_datos))
## [1] "Cantidad de datos mayores que 5 y menores que 20: 32"
print(paste("Cantidad de datos menores o iguales que 15:", cantidad_menor_igual_15))
## [1] "Cantidad de datos menores o iguales que 15: 36"

Datos iniciales

Xi <- c(5, 10, 15, 20, 25)
ni <- c(4, 12, 20, 24, 20)

Calcular cantidad de datos mayores o iguales a 10

cantidad_mayor_igual_10 <- sum(ni[Xi >= 10])

Mostrar resultado

print(paste("Cantidad de datos mayores o iguales a 10:", cantidad_mayor_igual_10))
## [1] "Cantidad de datos mayores o iguales a 10: 76"

Punto D

Datos iniciales

Xi <- c(5, 10, 15, 20, 25)
ni <- c(4, 12, 20, 24, 20)
n_total <- sum(ni)

Calcular porcentaje de datos entre 10 y 20

porcentaje_10_20 <- sum(ni[Xi >= 10 & Xi <= 20]) / n_total * 100

Mostrar resultado

print(paste("Porcentaje de datos entre 10 y 20:", porcentaje_10_20, "%"))
## [1] "Porcentaje de datos entre 10 y 20: 70 %"

cat(“El número de datos mayores que 5 pero menores que 20 es:”, total_datos, “”)




Ni <- cumsum(ni)