U1A2.R

#segundo ejercicio
#U1A2
# Erick Michael Luke Lopez

setwd("~/PyE")
#paquetes

library(fdth)

## 
## Attaching package: 'fdth'

## The following objects are masked from 'package:stats':
## 
##     sd, var

#temperatura
#CONAGUA  Alamos
#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  )

#tabla de frecuencia absoluta
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 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
hist(ALAMOS)

#Elaboracion de histograma y poligonos de frcuencia


#histograma frecuencia acbsoluta
plot(dist,type="fh")

#poligono frecuemcias  absolutas
plot(dist,type="fp")

#histograma frecuemcias  acumulada
plot(dist,type="cfh")

#POLIGONO DE FRECUENCIAS RELATIVAS
plot(dist,type="rfp")

#POLIGONO DE FREECUDENCIAS ACUMULADAS
plot(dist,type="cfp")

#TEMPERARURA CONAGUA HUATABAMPO SONORA
 
HUATABAMPO <- c( 16.5,     17.3,     18.9,     21.3,     23.8,     28.2,     30.4,     30.4,     29.8,     26.2,     20.7,     17.2 )


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

##   Class limits f   rf rf(%) cf  cf(%)
##  [16.34,19.21) 4 0.33 33.33  4  33.33
##  [19.21,22.08) 2 0.17 16.67  6  50.00
##  [22.08,24.96) 1 0.08  8.33  7  58.33
##  [24.96,27.83) 1 0.08  8.33  8  66.67
##   [27.83,30.7) 4 0.33 33.33 12 100.00

sort(HUATABAMPO)

##  [1] 16.5 17.2 17.3 18.9 20.7 21.3 23.8 26.2 28.2 29.8 30.4 30.4

hist(HUATABAMPO)

#histOgrama fecuencia  absoluta
plot(dist2,type="fh")

#poligono fecuencia  absolutas
plot(dist2,type="fp")

#histostograma frecuencia  acumulada
plot(dist2,type="cfh")

#POLIGONO DE FRECUENCIAS RELATIVAS
plot(dist2,type="rfp")

#POLIGONO DE FREECUDENCIAS ACUMULADAS
plot(dist2,type="cfp")

# se utilizo la libreria (ftdh) para crear graficas ( histogramas y poligonos) para comparar la temperatura media normal de Alamos y Huatabampo.
# se utilizaron diferentis tipos de graficas para calcular la frecuencia relativa, acumulada y absolutas.
# Se realizo una comparativa de los datos respecto a las 2 ciudades   observando que alamos mantiene una temperatura mayor a huatampo en 60% del año aprox. mientras que huatabampo obtien el otro 40% aprox

# Los histogramas son graficos donde se pueden apreciar  mejor los datos, a base del histogra se pueden crear graficas de poligonos.