U1A2.R

#Segundo  ejercicio de la materia de PyE
#U1A2
#Adolfo Amado Sánchez
#ID: 000000214997
#4 de Septiembre del 2020

#wd
setwd("~/PyE 11 AM")
#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 ALAMOS, SONORA
#Datos recuperados de: 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)
NAVOJOA <- c(18.2,  19.2, 20.9,  23.9, 27.3,  31.0, 31.9,  31.4, 30.7, 27.8, 22.8, 18.9, 25.3)

#Tabla de frecuencias absolutas
dist <- fdt(ALAMOS,breaks="Sturges")
dist

##     Class limits f   rf rf(%) cf  cf(%)
##  [18.315,20.328) 4 0.33 33.33  4  33.33
##  [20.328,22.341) 2 0.17 16.67  6  50.00
##  [22.341,24.355) 0 0.00  0.00  6  50.00
##  [24.355,26.368) 2 0.17 16.67  8  66.67
##  [26.368,28.381) 4 0.33 33.33 12 100.00

dist1 <- fdt(NAVOJOA,breaks="Sturges")
dist1

##     Class limits f   rf rf(%) cf  cf(%)
##  [18.018,20.858) 3 0.23 23.08  3  23.08
##  [20.858,23.698) 2 0.15 15.38  5  38.46
##  [23.698,26.539) 2 0.15 15.38  7  53.85
##  [26.539,29.379) 2 0.15 15.38  9  69.23
##  [29.379,32.219) 4 0.31 30.77 13 100.00

#Ordenar datos de menor a mayor los
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(NAVOJOA)

##  [1] 18.2 18.9 19.2 20.9 22.8 23.9 25.3 27.3 27.8 30.7 31.0 31.4 31.9

#Histograma de frecuencias absolutas
hist(ALAMOS)

hist(NAVOJOA)

#Histogramas de Álamos
plot(dist, type='fh')#Histograma de frecuencia absoluta

plot(dist, type='rfh')#Histograma de frecuencia relativa

plot(dist, type='rfph')#Histograma de frecuencia relativa (%)

plot(dist, type='cdh')#Histograma de densidad acumulada

plot(dist, type='cfh')#Histograma de frecuencia acumulada

plot(dist, type='cfph')#Histograma de frecuencia acumulada (%)

#Histogramas de Navojoa
plot(dist1, type='fh')#Histograma de frecuencia absoluta

plot(dist1, type='rfh')#Histograma de frecuencia relativa

plot(dist1, type='rfph')#Histograma de frecuencia relativa (%)

plot(dist1, type='cdh')#Histograma de densidad acumulada

plot(dist1, type='cfh')#Histograma de frecuencia acumulada

plot(dist1, type='cfph')#Histograma de frecuencia acumulada (%)

#Polígonos de Álamos
plot(dist, type='fp')#Polígono de frecuencia absoluta

plot(dist, type='rfp')#Polígono de frecuencia relativa

plot(dist, type='rfpp')#Polígono de frecuencia relativa (%)

plot(dist, type='cdp')#Polígono de densidad acumulada

plot(dist, type='cfp')#Polígono de frecuencia acumulada

plot(dist, type='cfpp')#Polígono de frecuencia acumulada (%)

#Polígonos de Navojoa
plot(dist1, type='fp')#Polígono de frecuencia absoluta

plot(dist1, type='rfp')#Polígono de frecuencia relativa

plot(dist1, type='rfpp')#Polígono de frecuencia relativa (%)

plot(dist1, type='cdp')#Polígono de densidad acumulada

plot(dist1, type='cfp')#Polígono de frecuencia acumulada

plot(dist1, type='cfpp')#Polígono de frecuencia acumulada (%)

#Conclusión
#Con los datos obtenidos y con las representaciones gráficas
#realizadas, como lo son histogramas y polígonos, se puede 
#notar que a pesar de que las temperaturas en Navojoa en
#promedio por mes son solo poco más bajas y más altas, estás
#cambian a lo largo del año de una manera menos drástica y más
#estable que en la que lo hacen en el municipio de Álamos, en 
#el cuál se puede apreciar que la temperatura pasa de una forma 
#relativamente rápida a la mediana de los datos obtenidos
#para después llegar al límite superior con la misma velocidad.