U1A2.R

#Segundo  ejercicio de la materia de pye
#U1A2

#wd
setwd("~/PYE1112ADITSON")
#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
# https://smn.conagua.gob.mx/tools/RESOURCES/Normales5110/NORMAL26002.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  )

#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

#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

#histograma de frecuencias absolutas
hist(ALAMOS)

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

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

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

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

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

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

#Temperatura media normal (1951-2010) de la estación
#SMN EMA CONAGUA de AGUA PRIETA, SONORA
# https://smn.conagua.gob.mx/tools/RESOURCES/Normales5110/NORMAL26002.TXT

#Variables
AGUAPTA <- c(8.0,      9.8,     12.9,     16.6,     21.1,     25.9,     27.2,     26.1,     23.6,     18.2,     12.2,      8.2 )

#Tabla de frecuencias absolutas
dist1 <- fdt(AGUAPTA,breaks="Sturges")
dist1

##     Class limits f   rf rf(%) cf  cf(%)
##     [7.92,11.83) 3 0.25 25.00  3  25.00
##   [11.83,15.741) 2 0.17 16.67  5  41.67
##  [15.741,19.651) 2 0.17 16.67  7  58.33
##  [19.651,23.562) 1 0.08  8.33  8  66.67
##  [23.562,27.472) 4 0.33 33.33 12 100.00

#ordenar datos de menor a mayor
sort(AGUAPTA)

##  [1]  8.0  8.2  9.8 12.2 12.9 16.6 18.2 21.1 23.6 25.9 26.1 27.2

#histograma de frecuencias absolutas
hist(AGUAPTA)

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

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

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

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

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

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

#HPolígono de frecuencias acumuladas
plot(dist1, type ="cfp")

#COMPARACIÓN DE ALAMOS VS AGUA PRIETA

#Con los siemples datos que importamos podemos deducir que en Agua Prieata el
#clima es mucho más frie que en Alamos, y esto lo podemos comprobrar con los
#intervalos de clases de las dos variables (ALAMOS, AGUAPTA).
#Podemos observar que la temperatura de Agua Prieta varia mucho más que la de 
#Alamos, prodría decirse que en Alamos esta controlado, ya que ó hace frio o
#hace calor, siendo un 50% y 50%, y en Agua Prieta no, aquí se mantiene por más
#de medio año la temperatura baja y los meses restantes hace calor, pero no llega
#a superar a las temperaturas de Alamos.