# 1. #Folder de trabajo 
setwd("~/pye1pm")

#nombre: José Julián León Valladolid
#carrera: Ingenieria en mecatronica
#matricula: 00000228914
#materia: probabilidad y estadistica

# descripcion del sitio de estudio: Ciudad Obregón o también apodada "Obson" es una ciudad mexicana ubicada en el sur del estado de Sonora en la región del valle del Yaqui. Es la segunda ciudad más poblada de la entidad, por detrás de Hermosillo, la capital estatal. Es también cabecera del municipio de Cajeme. Según el Censo de Población y Vivienda realizado en 2020 por el Instituto Nacional de Estadística y Geografía (INEGI), la ciudad cuenta con un total de 329,404 habitantes.

# Script para realizar histogramas y poligonos de frecuencia 
# de datos climáticos, de la estación de CIUDAD OBREGON (DGE), Sonora.

# para activar la biblioteca "fdth": frecuencias, distribuciones,
# tablas e histogramas 

# 2. #Paquete para realizar: frecuencias, distribuciones, tablas, histogramas
library(fdth)
## 
## Attaching package: 'fdth'
## The following objects are masked from 'package:stats':
## 
##     sd, var
#3. # Datos normales mensuales de la ciudad obregon 
# Estos datos los vamos a guardar en una variable 

dist <- c( 17.4, 18.6, 20.3, 23.5, 26.9, 30.6, 31.9, 31.6, 31.0, 27.5, 22.1, 17.9)

# Los datos corresponden en orden secuencial a los 12 meses del año (De enero a febrero)

# 4. Generaciacion de tabla de frecuencias

tabla <- fdt(dist, breaks = "Sturges") 
tabla
##     Class limits f   rf rf(%) cf  cf(%)
##  [17.226,20.225) 3 0.25 25.00  3  25.00
##  [20.225,23.223) 2 0.17 16.67  5  41.67
##  [23.223,26.222) 1 0.08  8.33  6  50.00
##   [26.222,29.22) 2 0.17 16.67  8  66.67
##   [29.22,32.219) 4 0.33 33.33 12 100.00
#Donde
#f= frecuencia absoluta
#rf= frecuencia relativa
#rf(%) frecuencia relativa porcentual
#cf= frecuencia acumulada
#cf(%)=frecuencia acumulada porcentual

# 5. Ordenar los numeros (datos) de menor a mayor
sort(dist)
##  [1] 17.4 17.9 18.6 20.3 22.1 23.5 26.9 27.5 30.6 31.0 31.6 31.9
#6. Histogramas de frecuencia 

# Histograma de frecuencia absoluta 
plot(tabla, type="fh")

# Histograma de frecuencia acumulada 
plot(tabla, type="cfh")

# Histograma de frecuencia relativa 
plot(tabla, type="rfh")

#7. Poligonos de frecuencia 

# Poligono de frecuencia absoluta 
plot(tabla, type="fp")

# Poligono de frecuencia acumulada 
plot(tabla, type="cfp")

# Poligono de frecuencia relativa 
plot(tabla, type="rfp")