#segundo ejercicio de la materia de PyE
#U1A2
#tablas de frecuencia e histogramas 
setwd("~/PyE")

#paquetes 
library(fdth)
## 
## Attaching package: 'fdth'
## The following objects are masked from 'package:stats':
## 
##     sd, var
#datos 
#temperatura media normal (1951-2010) de la estacion smn ema conagua de alamos, sonora 
#https://smn.conagua.gob.mx/tools/RESOURCES/Normales5110/NORMAL26002.TXT

#variables 
A <- 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(A,breaks="Sturges")
#ordenar de menor a mayor
sort(A)
##  [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(A)

#elaboracion de histogramas y poligonos 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")

#datos
#temperatura media normal (1951-2010) de la estacion smn ema conagua de Huatabampo, sonora 

HUATA <- 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)

#tabla de frecuencias absolutas 
X <- fdt(HUATA,breaks="Sturges")

#ordenar de menor a mayor
sort(HUATA)
##  [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
#histograma de frecuencias Absolutas 
hist(HUATA)

#elaboracion de histogramas y poligonos de frecuencia 
#Histograma de frecuencias absolutas
plot(X, type ="fh")

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

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

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

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

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

#Redacción personal 
#En este ejercicio elaboramos unas graficas para comparar la temperatura media normal de dos municipios
#(Álamos – Huatabampo). Las gráficas que utilizamos en este ejercicio fueron el histograma de 
#frecuencias relativas, de frecuencias absolutas y de frecuencias acumuladas. También obtuvimos el 
#polígono de frecuencias relativas, de frecuencias acumuladas, y de frecuencias absolutas.  
#Una vez obtenido estos datos pudimos observar que Álamos tenía temperaturas más bajas que 
#Huatabampo. Pero en el caso del municipio más caluroso Huatabampo tuvo temperaturas mas elevadas.


#¿Qué es un histograma?
#Un histograma es una representación gráfica de una variable en forma de barras, donde la superficie de 
#cada barra es proporcional a la frecuencia de los valores representados.

#¿Qué es un polígono?
#Polígono de frecuencia es el nombre que recibe una clase de gráfico que se crea
#a partir de un histograma de frecuencia.