#cargar biblioteca fdth
library(fdth) # frecuencias, distribuciones, tablas, histogrmas
##
## Attaching package: 'fdth'
## The following objects are masked from 'package:stats':
##
## sd, var
#Distribución de frecuencia de datos de Puerto Libertad
# datos usados:https://smn.conagua.gob.mx/es/informacion-climatologica-por-estado?estado=son
PUERTO_LIBERTAD <- c(13.5, 14.6, 16.7, 20.2, 22.3, 26.4, 30.2, 30.5, 28.6, 24.2, 18.0, 14.2)
#CALCULAR LA DISTRIBUCION DE FRECUENCIAS SEGUN STURES
dist <- fdt(PUERTO_LIBERTAD, breaks = "Sturges")
dist
## Class limits f rf rf(%) cf cf(%)
## [13.37,16.85) 4 0.33 33.33 4 33.33
## [16.85,20.34) 2 0.17 16.67 6 50.00
## [20.34,23.83) 1 0.08 8.33 7 58.33
## [23.83,27.32) 2 0.17 16.67 9 75.00
## [27.32,30.8) 3 0.25 25.00 12 100.00
#HISTOGRAMA DE PUERTO LIBERTAD
#particionar la ventana de gráficas en un esquema 3x2
par(mfrow=c(3,2))
hist (PUERTO_LIBERTAD, breaks = "Sturges") #histograma de frecuencias absolutas
plot(dist, type="cfh") #histograma de frecuencias acumuladas
plot(dist, type="cfp") #poligono de frecuencias acumuladas
plot(dist, type="fh")
plot(dist, type="fh", col="red")
#para ordenar los datos de menor a mayor
sort(PUERTO_LIBERTAD)
## [1] 13.5 14.2 14.6 16.7 18.0 20.2 22.3 24.2 26.4 28.6 30.2 30.5
#CONCLUSIONES
#Con la tabla podemos observar que la clase con mayor frecuencia absoluta es la
#de [13.31,16.85), que es la clase con el intervalo de temperatura mas bajas,
#por lo tanto, las temperaturas en Puerto Peñasco, son en promedio, bajas.
#Por otro lado, observando el histograma, podemos ver que las clases tienen diferentes
#intervalos a los de la tabla, son en números enteros y con mayor número de
#valores relativamente. Se observa que los grupos con mayor frecuencia son las
#temperaturas de 10 a 15° y de 20 a 25°.
#Una diferencia que puedo notar entre la tabla y el histograma es que la frecuencia
#entre una y otra clase varía más en la tabla y en histograma son más repetidas
#supongo que por la manera en la que están agrupados los datos en ambas.
