U1A2.R

#Segundo ejercicio de la materia de PyE
#28/08/2020
#Marian Gutiérrez

#wd
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 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
#fr= frecuencia relativa
#rf(%)= frecuencia relativa porcentual
#cf= frecuencia acumulada
#cf(%)= frecuencia acumulada porcentual

#Elaboración de histogramas y poligonos de frecuencia

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

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

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

#Poligono de frecuencias relativas
plot(dist,type="rfp")

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

#Poligono de frecuencias acumuladas
plot(dist,type="cfp")

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

#Variables
SONOYTA <- c(11.9, 13.6, 16.2, 19.7, 23.9, 28.7, 32.2, 31.6, 29.0, 22.8, 16.1, 11.8)

#Tabla de frecuencias absolutas 
dist2 <- fdt(SONOYTA,breaks="Sturges")
dist2

##     Class limits f   rf rf(%) cf  cf(%)
##   [11.682,15.85) 3 0.25 25.00  3  25.00
##   [15.85,20.018) 3 0.25 25.00  6  50.00
##  [20.018,24.186) 2 0.17 16.67  8  66.67
##  [24.186,28.354) 0 0.00  0.00  8  66.67
##  [28.354,32.522) 4 0.33 33.33 12 100.00

#Ordenar datos de menor a mayor
sort(SONOYTA)

##  [1] 11.8 11.9 13.6 16.1 16.2 19.7 22.8 23.9 28.7 29.0 31.6 32.2

#Histograma de frecuencias absolutas
hist(SONOYTA)

#f= frecuencia
#fr= frecuencia relativa
#rf(%)= frecuencia relativa porcentual
#cf= frecuencia acumulada
#cf(%)= frecuencia acumulada porcentual

#Elaboración de histogramas y poligonos de frecuencia

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

#Poligono de frecuencias absolutas
plot(dist2, type="fp")

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

#Poligono de frecuencias relativas
plot(dist2,type="rfp")

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

#Poligono de frecuencias acumuladas
plot(dist2,type="cfp")

#En este ejercicio se realizó la comparacion de la frecuencia absoluta,
#frecuencia relativa y frecuencia acumulada de la temperatura media normal
#desde 1951 hasta 2010 de dos ciudades,Álamos y Sonoyta, con la ayuda de la
#librería fdth para la elaboración de histogramas y polígonos.