—————–ESTADISTICA INDUSTRiAL——————-

Encargado: Jose Panfilo Tito Lipa

Tema : Estadistica descriptiva

media

mediana

rango

INTERPRETACION

1.————–cargando datos——————————

Cargamos los Datos que se nos proporcionaron desde excel usando la libraria (openxlsx)

library(openxlsx)
## Warning: package 'openxlsx' was built under R version 4.0.2
datos <- read.xlsx("D://nube/unap/9/Estadistica Industrial/practica/facturas.xlsx")

2.———–Media O Promedio——————–

#media
mean(datos$montfac)
## [1] 550.8462

como se puede observar del ejemplo de montos de facturación la media aritmética fue de 550.8462 en una escala de 1 a 52.

3.————Mediana—————————-

#mediana
median(datos$montfac)
## [1] 526

También teniendo un resultado de mediana que es de 526, lo que indica que el 50% de los montos de facturación fue menor o igual a 526 o mayor igual a dicho numero en una escala de 1 a 52.

4.————–Rango—————————-

#rango
range(datos)
## [1]  121 1105
diff(range(datos))
## [1] 984

El costo mínimo de facturación fue de 121, seguido del costo máximo que fue de 1105, podemos decir que el recorrido de los costos de facturación fue de 984, teniendo un mayor recorrido podemos decir que hay mayor dispersión de costos de facturación.

5.—————- Histograma——————–

#histograma
hist(datos$montfac, col="skyblue2",
     main="Distribucion de monto de facturacion",
     ylab="Frecuencia",
     xlab="Monto factura",
     sub="Figura 1: Histograma de Monto de Facturacion"
     )

De la Figura 1 podemos observar que ubo una mayor concentración de costos de facturación entra 200 y 400 a pesar de tener una media de 550.8462, seguido de 800-1000, y de 400-800, también donde se encontró la media aritmética.