#U1A2
#31 de agosto de 2020
#ismael lopez barra 
#2do ejercicio de estadistica aplicada
#Tablas de frecuencia e histogramas
#wd

#paquetes
library(fdth)
## 
## Attaching package: 'fdth'
## The following objects are masked from 'package:stats':
## 
##     sd, var
#datos
#temperatura media normal de la ema en alamos , sonora 
#https://smn.conagua.gob.mx/es/informacion-climatologica-por-estado?estado=son

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)

#1er tabla de distribucion de frecuencia
# tabla de distribucion de frecuencias absolutos

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
#vamos a ordenar los datos menor-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
##Acontinuación se van a relizar tanto los histogramas como los poligonos de frecuencia correspondientes para 
## las frecuencias absolutas, acumuladas y relativas para cada una de estas.

#1er histograma de frecuencias absolutas
hist(ALAMOS)

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

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

#Histogramas de frecuencias relativo
plot(dist, type="rfh")

#poligono de frecuencias relativo
plot(dist, type="rfp")

#Histogramas de frecuencias acumulado
plot(dist, type="cfh")

#poligono de frecuencias acumulado
plot(dist, type="cfp")

##conclusion. 
#primeramente se hiso instalacion de una paqueteria con el nombre de "library(fdth)" 
#para posteriormente poder crear histogramas como los poligonos de frecuencia correspondientes para 
## las frecuencias absolutas, acumuladas y relativas para cada una de estas.Todos estos graficos 
#provendran de una pagina donde se relaciona la Temperatura de Alamos,son en un respectivo tiempo.