#Segundo ejercicio de la materia de PYE
#U1A2
#31/08/2020
#Victor Carvajal Román ID:215186 IMT
#wd
setwd("~/PYE1112ITSON")
#Paquetes
library(fdth)
##
## Attaching package: 'fdth'
## The following objects are masked from 'package:stats':
##
## sd, var
#datos ALAMOS
#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 absoluta
#rf= frecuencia relativa
#rf(%) frecuencia relativa porcentual
#cf= frecuencia acomulada
#cf(%)= frecuencia acomulada porcentual
#Elaboración de histogramas y polígonos de frecuencias
#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 acomuladas
plot(dist, type="cfh")
#polígono de frecuencias acomuladas
plot(dist, type="cfp")
#datos CAJEME
#Temperatura media normal (1951-2010) de la estación
#SMN EMA CONAGUA de CIUDAD OBREGON (FFCC), Sonora
# https://smn.conagua.gob.mx/es/informacion-climatologica-por-estado?estado=son
#Variables
CDOBREGON <- c (20.1, 20.0, 21.5, 23.6, 26.7, 30.4, 31.1, 30.8, 31.1, 29.2, 24.7, 22.2)
#Tabla de frecuencias absolutas
dist2 <- fdt(CDOBREGON,breaks="Sturges")
dist2
## Class limits f rf rf(%) cf cf(%)
## [19.8,22.122) 3 0.25 25.00 3 25.00
## [22.122,24.444) 2 0.17 16.67 5 41.67
## [24.444,26.767) 2 0.17 16.67 7 58.33
## [26.767,29.089) 0 0.00 0.00 7 58.33
## [29.089,31.411) 5 0.42 41.67 12 100.00
#Ordenar datos de menor a mayor
sort(CDOBREGON)
## [1] 20.0 20.1 21.5 22.2 23.6 24.7 26.7 29.2 30.4 30.8 31.1 31.1
#histograma de frecuencias absolutas
hist(CDOBREGON)
#f= frecuencia absoluta
#rf= frecuencia relativa
#rf(%) frecuencia relativa porcentual
#cf= frecuencia acomulada
#cf(%)= frecuencia acomulada porcentual
#Elaboración de histogramas y polígonos de frecuencias
#histograma de frecuencias absolutas
plot(dist2, type="fh")
#polígono de frecuencias absolutas
plot(dist2, type="fp")
#histograma de frecuencias relativas
plot(dist2, type="rfh")
#polígono de frecuencias relativas
plot(dist2, type="rfp")
#histograma de frecuencias acomuladas
plot(dist2, type="cfh")
#polígono de frecuencias acomuladas
plot(dist2, type="cfp")
#CONCLUSIóN PERSONAL
#En este ejercicio número dos de la clase de probabilidad y estadística
#aprendimos a utilizar datos de dominio público (obtenidos de la página web
#de CONAGUA) para graficar la temperatura media normal de algunas localidades
#del estado de Sonora. Con ayuda de la biblioteca fdth, elaboramos un código
#que a partir de una tabla (de temperaturas ordenadas de menor a mayor),
#genera histogramas y gráficas de polígonos de las frecuencias
#(absolutas, relativas, y acomuladas) de dichos datos.
#Analizando los resultados podemos observar que la temperatura media en
#Ciudad Obregón es mayor a la temperatura media en Álamos; esto puede deberse
#a la diferencia de altitud de las dos ciudades, puesto que Cd. Obregón está
#más cerca del nivel del mar, y también a la densidad de población que es
#mucho mayor en Ciudad Obregón con una menor tasa de árboles por cada habitante.