U1A2.R

#Segundo ejercicio de la materia PyE
#U1A2
#Silvia Paulina Flores Castro
#02 de septiembre de 2020

#wd
setwd("~/Probabilidadyestadistica")
#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 absoluta
#rf= frecuencia relativa
#rf(%) frecuencia relativa porcentual
#cf= frecuencia acumulada
#cf(%)=frecuencia acumulada porcentual

#Elaboración de histogramas y polígonos de frecuencia

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

#Polígono de fercuencias absolutas
plot(dist, type ="fp")

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

#Polígono de fercuencias relativas
plot(dist, type ="rfp")

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

#Polígono de fercuencias acumuladas
plot(dist, type ="cfp")

#datos 
#Temperatura media normal (1951-2010) de la estación 
#SMN EMA CONAGUA de VILLA JUAREZ, SONORA
# https://smn.conagua.gob.mx/es/informacion-climatologica-por-estado?estado=son

#Variables
VILLAJUAREZ <- c(16.5,     17.3,     19.0,     21.7,     24.7,     29.1,     31.0,     30.8,     29.9,     26.4,     21.1,     17.0)

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

##    Class limits f   rf rf(%) cf  cf(%)
##  [16.335,19.33) 4 0.33 33.33  4  33.33
##  [19.33,22.325) 2 0.17 16.67  6  50.00
##  [22.325,25.32) 1 0.08  8.33  7  58.33
##  [25.32,28.315) 1 0.08  8.33  8  66.67
##  [28.315,31.31) 4 0.33 33.33 12 100.00

#ordenar datos de menor a mayor
sort(VILLAJUAREZ)

##  [1] 16.5 17.0 17.3 19.0 21.1 21.7 24.7 26.4 29.1 29.9 30.8 31.0

#histograma de frecuencias absolutas
hist(VILLAJUAREZ)

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

#Elaboración de histogramas y polígonos de frecuencia

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

#polígono de frecuencias absoluta
plot(dist2, type = "fp")

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

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

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

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

#Redacción personal
#Gracias a las graficas realizadas en este ejercicio se puede observar
#que las temperaturas de Álamos y Villa Juarez son parecidas.
#En Villa Juarez varia más la temperatura que en Álamos,
#En Villa Juarez los meses de invierno tienen temperaturas más bajas que Álamos
#y en los meses de verano tiene temperaturas más altas.