U1A2.R

#segundo ejercicio de la materia de estadistica aplicada
#U1A2
#31/agost/20
#Gerardo González Rojas
#Tablas de frecuencia e histogramas
library(fdth)

## 
## Attaching package: 'fdth'

## The following objects are masked from 'package:stats':
## 
##     sd, var

#datos a utilizar
#temperatura media normal de la estacion SMN EMA de 
#Alamos, Sonora https://smn.conagua.gob.mx/es/informacion-climatologica-por-estado?estado=son

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, 23.4)

#Primer tabla de frecuencia 
dist <- fdt(ALAMOS,breaks="Sturges")
dist

##     Class limits f   rf rf(%) cf  cf(%)
##  [18.315,20.328) 4 0.31 30.77  4  30.77
##  [20.328,22.341) 2 0.15 15.38  6  46.15
##  [22.341,24.355) 1 0.08  7.69  7  53.85
##  [24.355,26.368) 2 0.15 15.38  9  69.23
##  [26.368,28.381) 4 0.31 30.77 13 100.00

#ordenar datos de menor a mayor
sort(ALAMOS)

##  [1] 18.5 19.1 19.1 20.2 21.6 22.1 23.4 24.7 24.8 26.8 27.6 28.0 28.1

#Primer histograma de frecuencias absolutas
hist(ALAMOS)

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

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

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

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

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

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