U1A2.R

#Segundo ejercicio de la materia de PyE
#U1A2

#wd
setwd("~/PYE1112AD")
#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
#SMN EMa CONAGUA de CD. OBREGÓN, SONORA
#https://smn.conagua.gob.mx/tools/RESOURCES/Normales5110/NORMAL26002.TXT
#https://smn.conagua.gob.mx/tools/RESOURCES/Normales5110/NORMAL26018.TXT

#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 )
OBREGON <- 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)
#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

dist2 <- fdt(OBREGON,breaks="Sturges")
dist2

##     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

#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(OBREGON)

##  [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

#Histograma de frecuencias absolutas
hist(ALAMOS)

hist(OBREGON)

#f= Frecuencia absoluta
#rf= Frecuencia relativa
#rf(%)= Frecuencia relativa porcentual
#cf= Frecuencia acumulada
#cf(%)=Frecuencia acumulada porcentual

#Elaboración de histogramas y polígonos de frecuencia

#Histograma de frecuencias absolutas
plot(dist, type="fh")

plot(dist2, type="fh")

#Polígono de frecuencias absolutas
plot(dist, type="fp")

plot(dist2, type="fp")

#Histograma de frecuencias relativas
plot(dist, type="rfh")

plot(dist2, type="rfh")

#Polígono de frecuencias relativas
plot(dist, type="rfp")

plot(dist2, type="rfp")

#Histograma de frecuencias acumuladas
plot(dist, type="cfh")

plot(dist2, type="cfh")

#Polígono de frecuencias acumuladas
plot(dist, type="cfp")

plot(dist2, type="cfp")

#ALAMOS VS CD. OBREGÓN
#Observaciones al comprarar los gráficos de ALAMOS y CD. OBREGÓN, tomando en cuenta su temperatura media normal (1951-2010) de la estación.
#Tomando en cuenta el polígono de frecuencia acumulada de cada uno.
#En los primeros dos meses, enero y febrero, Cd. Obregón cuenta con temperaturas medias más bajas que en Álamos. Sin embargo, de marzo a noviembre, Cd. Obregón cuenta con temperaturas mucho mas altas que en Álamos, siendo que en Álamos se mantiene una temperatura regular y Cd. Obregón se vuelve muy caluroso. Finalmente en el mes de diciembre, Cd. Obregón vuelve a tener temperaturas más bajas que en Álamos.

#Ánalisis de comandos utilizados
#Se utilizó la biblioteca/librería de tablas de distribución de frecuencia (fdth) que nos sirve para construir histogramas y polígonos principalmente. Además se comenzó a realizar la declaración de variables con el <-c y por consiguiente, se elaboraron las tablas de distribución de frecuencia Sturges con comando fdt. Así mismo se realizaron histogramas generales con hist. También con un plot, se elaboraron histogramas y polígonos que hacen uso de las clases y diversas frecuencias de esta biblioteca.