#SEGUNDO EJERCICIO DE PYE ISW
#U1A2
#HISTOGRAMAS Y TABLAS DE FRECUENCIA
#ASIGNAR FOLDER DE TRABAJO
library(fdth)
##
## Attaching package: 'fdth'
## The following objects are masked from 'package:stats':
##
## sd, var
#Set de datos climaticos de alamos, sonora.
#declarar variable
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)
dist <- fdt(ALAMOS, breaks="Sturges") # Calcula la distribución
#de frecuencias según la regla de 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
dist #nos brinda una tabla con los calculos de la distribución de frecuencias.
## 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
#Donde
#f= frecuencia absoluta
#rf= frecuencia relativa
#rf(%) frecuencia relativa porcentual
#cf= frecuencia acumulada
#cf(%)=frecuencia acumulada porcentual
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
#GENERACION DE HISTOGRAMA
#histograma de frecuencias absolutas
hist(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
# para mostrar multiples graficas en una ventana
par(mfrow=c(3,2)) # particiona mi ventana grafica en 3x2.
hist(ALAMOS, breaks = "Sturges") #histograma utilizando el numero de clases según Sturge
plot(dist, type="cfh") #histograma de frecuencias acumulada
plot(dist, type="cfp") #poligono de frecuencias acumulado
plot(dist, type="fh")
plot(dist, type="fh", col="blue") #si desea añadir color a su grafico
plot(dist, type="rfh")# histograma de frecuencias relativas
#comparacion con Batacosa
#Set de datos climaticos de Batacosa, sonora.
#declarar variable
BATACOSA <- c(16.0,17.3,19.2,22.1,25.4,29.6,30.2,29.2,28.5,25.2,20.1,16.4,23.3)
dist <- fdt(BATACOSA, breaks="Sturges") # Calcula la distribución
#de frecuencias según la regla de Sturges
dist
## Class limits f rf rf(%) cf cf(%)
## [15.84,18.77) 3 0.23 23.08 3 23.08
## [18.77,21.7) 2 0.15 15.38 5 38.46
## [21.7,24.64) 2 0.15 15.38 7 53.85
## [24.64,27.57) 2 0.15 15.38 9 69.23
## [27.57,30.5) 4 0.31 30.77 13 100.00
dist #nos brinda una tabla con los calculos de la distribución de frecuencias.
## Class limits f rf rf(%) cf cf(%)
## [15.84,18.77) 3 0.23 23.08 3 23.08
## [18.77,21.7) 2 0.15 15.38 5 38.46
## [21.7,24.64) 2 0.15 15.38 7 53.85
## [24.64,27.57) 2 0.15 15.38 9 69.23
## [27.57,30.5) 4 0.31 30.77 13 100.00
#Donde
#f= frecuencia absoluta
#rf= frecuencia relativa
#rf(%) frecuencia relativa porcentual
#cf= frecuencia acumulada
#cf(%)=frecuencia acumulada porcentual
sort(BATACOSA)
## [1] 16.0 16.4 17.3 19.2 20.1 22.1 23.3 25.2 25.4 28.5 29.2 29.6 30.2
#GENERACION DE HISTOGRAMA
#histograma de frecuencias absolutas
hist(BATACOSA, breaks = "Sturges")
dist
## Class limits f rf rf(%) cf cf(%)
## [15.84,18.77) 3 0.23 23.08 3 23.08
## [18.77,21.7) 2 0.15 15.38 5 38.46
## [21.7,24.64) 2 0.15 15.38 7 53.85
## [24.64,27.57) 2 0.15 15.38 9 69.23
## [27.57,30.5) 4 0.31 30.77 13 100.00
# para mostrar multiples graficas en una ventana
par(mfrow=c(3,2)) # particiona mi ventana grafica en 3x2.
hist(BATACOSA, breaks = "Sturges") #histograma utilizando el numero de clases según Sturge
plot(dist, type="cfh") #histograma de frecuencias acumulada
plot(dist, type="cfp") #poligono de frecuencias acumulado
plot(dist, type="fh")
plot(dist, type="fh", col="blue") #si desea añadir color a su grafico
plot(dist, type="rfh")# histograma de frecuencias relativas
#segun las frecuencias en batacosa compara de con las de alamos batacosa hace mas calor son mas altas sus frecuecias,
# la temperatuda maxima que tiene batacosa es de 30.50 grados
#mientras alamos tiene una temperatura maxima de 28.38 grados
#Aunque si en alamos tiene momentos en que es mas coluroso
#pero batacosa avanza mas exponencialmente porque no es un lugar humedo.
#