# Distribución de frecuencias y gráficas (histograma , polígonosy ojivas)

# # p.21. (Anderson,2014) El informe Nielsen Home Technology Report
# proporciona información  sobre tecnología  en el hogar y su uso.
# Los datos siguientes registran 
# las horas de uso  de computadoras personales # durante una semana para una 
# muestra de 50 personas.
# Resuma los datos al elaborar lo siguiente: 
# a) Una distribución de frecuencia (utilice un ancho de clase de 3 horas).
# b) Una distribución de frecuencia relativa. 
# c) Un histograma.
# d) Una ojiva. 
# los datos lo almacenamos en el objeto x:

x<-c(  4.10, 1.50, 10.40,  5.90,  3.40, 5.70, 1.60,  6.10,  3.00, 3.70, 
       3.10, 4.80,  2.00, 14.80,  5.40, 4.20, 3.90,  4.10, 11.10, 3.50, 
       4.10, 4.10,  8.80,  5.60,  4.30, 3.30, 7.10, 10.30,  6.20, 7.60,  
      10.80, 2.80,  9.50, 12.90, 12.10, 0.70, 4.00,  9.20,  4.40, 5.70, 
       7.20, 6.10,  5.70,  5.90,  4.70, 3.90, 3.70,  3.10,  6.10, 3.10  )
# a). por definición del problema la amplitud es igual a 3
# en otro caso se hace según sturges.

# libreria para hacer tablas y gráficos de frecuencias

library(fdth)  
## 
## Attaching package: 'fdth'
## The following objects are masked from 'package:stats':
## 
##     sd, var
# ahora se trabaja con la función :fdt()

# dando la amplitud h= 3     ( la amplitud en la función es h)

#  al valor (max =14.8) en la funcion fdt se amplia por conveniencia end= 16
#  el intervalo es abierto por la derecha. tal como se aprecia a continuación
# para ver el mayor y menor valor

summary(x)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   0.700   3.700   4.750   5.706   6.875  14.800
# Se asigna al objeto Tablaf los resultados de la función fdt().

Tablaf<- fdt(x,start = 0.7,end= 16, h= 3)
Tablaf
##  Class limits  f   rf rf(%) cf cf(%)
##     [0.7,3.7) 12 0.24    24 12    24
##     [3.7,6.7) 25 0.50    50 37    74
##     [6.7,9.7)  6 0.12    12 43    86
##      [9.7,13)  5 0.10    10 48    96
##       [13,16)  2 0.04     4 50   100
# se muestra la tabla de frecuencias
# donde:
# f     = frecuencia absoluta
# rf    = frecuencia relativa
# rf(%) = frecuencia relativa porcentual
# cf    = frcuencia absoluta acumulada
# cf(%) = frecuencia  absoluta acumulada porcentual.
# c-d)

# Para los  gráficos.  se trabaja con el objeto :Tablaf.

# los histogramas de frecuencias

plot(Tablaf,type="fh",     # Histograma de frecuencias absolutas
     col = "lightblue",
     main = " Histograma de los datos de horas de uso  \n de la computadora en el hogar",
     xlab = "Horas de uso de la computadora",
     ylab= "frecuencia")

plot(Tablaf, type="rfh",      #Histograma de frecuencias relativas
     col="orange2",
     main = " Histograma de los datos de horas de uso \n  de la computadora en el hogar",
     xlab = "Horas de uso de la computadora",
     ylab= "frecuencia relativas") 

# los polígonos

plot(Tablaf,type="fp", col="red2",
     main="Histograma de los datos de horas de uso \n de la computadora en el hogar" ,
     xlab = "Horas de uso de la computadora",
     ylab= "frecuencia") 

plot(Tablaf,type="rfp", col="red2",
     main="Poligono Ojiva de los datos de horas de uso \n  de la computadora en el hogar",
     xlab = "Horas de uso de la computadora",
     ylab= "frecuencia relativa") 

# las ojivas frecuencias acumuladas

plot(Tablaf,type="cfp", col="blue4", 
     main="Ojiva de los datos de horas de uso \n de la computadora en el hogar",
     xlab = "Horas de uso de la computadora",
     ylab= "frecuencia acumulada")

plot(Tablaf,type="cfpp", col="blue4", 
     main="Ojiva de los datos de horas de uso \n de la computadora en el hogar",
     xlab = "Horas de uso de la computadora",
     ylab= "frecuencia porcentual acumulada")