U1A2.R

#Segundo ejercicio de la materia de pye
#U1A2

#WD
setwd("~/Pobabilidad y estadistica 11-12 agodic")
#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")

#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)

#Elaboración de histogramas y poligonos de frecuencia


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

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

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

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

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

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

#YECORA

YECORA <- c( 11.6,     13.4,     16.5,     20.9,     25.7,     30.2,     28.9,     27.6,     26.8,     22.3,     16.1,     11.5,     21.0)

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

#ordenar datos de menor a mayor
sort(YECORA)

##  [1] 11.5 11.6 13.4 16.1 16.5 20.9 21.0 22.3 25.7 26.8 27.6 28.9 30.2

#Histograma de frecuencias absolutas
hist(YECORA)

#Elaboración de histogramas y poligonos de frecuencia


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

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

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

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

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

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

#Redacción personal.
#En la asignación 2 elaboramos 3 histogramas de frecuencias (acumuladas, absolutas
#y relativas) y 3 polígonos de de frecuencias (acumuladas, absolutas y relativas) 
#para Álamos y Yécora correspondientemente.Para ello se consiguieron los datos
#del SMN CONAGUA. 
#Primero se guardaron los datos en una variable para Álamos, despues se distribuyeron
#de manera de "Sturges", se acomodaron de menor a mayor con comando "sort" y se creó
#un histograma en base a ello. Consiguiente se crearon otros 3 histogramas para 
#cada frecuencia y 3 polígonos. Este mismo procedimiento se repitió en otra variable para
#Yécora. 
#Se destacaron las temperaturas de 18 a 20 grados para Álamos y en el caso de Yécora
#las temperaturas estuvieron más en 25 a 30 grados.