# 1. #Folder de trabajo 
setwd("~/pye1pm")

# Script para realizar histogramas y polígonos de frecuencia

#de datos climaticos, de la estacion de YECORA 

# Alumno: Juan Eliasib Avalos Bojorquez
# Carrera: Electromecanico
# Semestre: 2
# ID: 00000239619
# Materia: Probabilidad y Estadistica

# Descripcion: Yécora se encuentra a más de 1500 metros de altura  
# Se ubica a tan solo 11 kilómetros de la frontera con Chihuahua. 
# Tiene aproximadamente 6089 habitantes.


# para activar la biblioteca "fdth": frecuencias, distribuciones,
# tablas e histogramas 

# 2. #Paquete para realizar: frecuencias, distribuciones, tablas, histogramas
library(fdth)
## 
## Attaching package: 'fdth'
## The following objects are masked from 'package:stats':
## 
##     sd, var
#3. # Datos normales 1981-2010 de la estación de YECORA 
# Estos datos los vamos a guardar en una variable 

dist <- c(6.2105, 6.832, 8.9567, 11.871, 14.914, 19.823, 20.185, 19.821, 18.173, 13.274, 8.5284, 6.4745, 151.2, 12.9)

# Los datos corresponden en orden secuencial a los 12 meses del año (De enero a febrero)

# 4. Generación de tabla de frecuencias

tabla <- fdt(dist, breaks = "Sturges") 
tabla
##       Class limits  f   rf rf(%) cf  cf(%)
##  [6.14839,35.4611) 13 0.93 92.86 13  92.86
##  [35.4611,64.7738)  0 0.00  0.00 13  92.86
##  [64.7738,94.0866)  0 0.00  0.00 13  92.86
##  [94.0866,123.399)  0 0.00  0.00 13  92.86
##  [123.399,152.712)  1 0.07  7.14 14 100.00
#Donde
#f= frecuencia absoluta
#rf= frecuencia relativa
#rf(%) frecuencia relativa porcentual
#cf= frecuencia acumulada
#cf(%)=frecuencia acumulada porcentual

# 5. Ordenar los numeros (datos) de menor a mayor
sort(dist)
##  [1]   6.2105   6.4745   6.8320   8.5284   8.9567  11.8710  12.9000  13.2740
##  [9]  14.9140  18.1730  19.8210  19.8230  20.1850 151.2000
#6. Histogramas de frecuencia 

# Histograma de frecuencia absoluta 
plot(tabla, type="fh")

# Histograma de frecuencia acumulada 
plot(tabla, type="cfh")

# Histograma de frecuencia relativa 
plot(tabla, type="rfh")

#7. Polígonos de frecuencia 

# Polígono de frecuencia absoluta 
plot(tabla, type="fp")

# Polígono de frecuencia acumulada 
plot(tabla, type="cfp")

# Polígono de frecuencia relativa 
plot(tabla, type="rfp")

# B) Medidas de tendencia central 

# 1) Media 
mean(dist)
## [1] 22.79736
## [1] 24.075
# 2) Mediana
median(dist)
## [1] 13.087
## [1] 23.65
# 3) Moda

# 4) Cuantiles

# 5) Gráfico de caja y bigote

# C) Medidas de de dispersión

#1) Varianza


#2) Desviación estándar