#U1A2 28/AGO/2020
#JORGE VALENZUELA PARRA

#wd
setwd("~/PyE3")

#Paquetes
library(fdth)
## 
## Attaching package: 'fdth'
## The following objects are masked from 'package:stats':
## 
##     sd, var
#Datos
# - Temperatura media normal (1951-2010) de la estación SMN EMA CONAGUA
#de Álamos, Sonora
# - Temperatura media normal (1951-2010) de la estación SMN EMA CONAGUA
#de Bacadéhuachi, Sonora
#https://smn.conagua.gob.mx/es/informacion-climatologica-por-estado?estado=son

#Variables
ALAMOS <- c(18.5,     19.1,     20.2,     22.1,     24.7,     28.1,     28.0,     27.6,     26.8,     24.8,     21.6,     19.1)
BACADEHUACHI <- c(11.8,     13.5,     16.2,     19.4,     24.4,     29.1,     28.9,     27.6,     26.5,     21.8,     16.0,     12.3)

#Tabla de frecuencias absolutas
dist <- fdt(ALAMOS, breaks="Sturges")
dist <- fdt(BACADEHUACHI, breaks="Sturges")
dist
##     Class limits f   rf rf(%) cf  cf(%)
##  [11.682,15.224) 3 0.25 25.00  3  25.00
##  [15.224,18.766) 2 0.17 16.67  5  41.67
##  [18.766,22.307) 2 0.17 16.67  7  58.33
##  [22.307,25.849) 1 0.08  8.33  8  66.67
##  [25.849,29.391) 4 0.33 33.33 12 100.00
#Ordenar datos de menor a mayor
sort(ALAMOS)
##  [1] 18.5 19.1 19.1 20.2 21.6 22.1 24.7 24.8 26.8 27.6 28.0 28.1
sort(BACADEHUACHI)
##  [1] 11.8 12.3 13.5 16.0 16.2 19.4 21.8 24.4 26.5 27.6 28.9 29.1
#Histograma de frecuencias absolutas
hist(ALAMOS)

hist(BACADEHUACHI)

#Redacción Personal

#En este programa se toman los datos de la media normal desde 1951 hasta 2010
#acerca de la temperatura en Álamos, se usaron heramientas de fdt para sacar
#las frecuencias absolutas e instrucciones sort e hist para que desplegar las
#el histograma y ordenar los datos.

#Esto es de gran utilidad para poder tener un orden en datos que ciertamente
#son más manejables y más faciles de analizar si están en el orden deseado, 
#en este caso ascendente para poder comparar al municipio de Álamos y el
#municipio de Bacadéhuachi, y se encontró que en promedio es moderadamente 
#más frío Bacadéhuachi que Álamos en casi todos los meses, pero tambien cuenta
#con el mes más cálido tambien, lo cual resulta curioso, y se concluye con que
#aunque ambos son munucipios similares pegados a la sierra (en diferentes
#latitudes), Bacadéhuachi es de temperaturas promedio normales más extremosas.