#SEGUNDO EJERCICIO DE PYE ISW
#U1A2
#HISTOGRAMAS Y TABLAS DE FRECUENCIA
#ASIGNAR folder de trabajo
setwd("~/Probabilidad Y Estadistica")
#Activar paquetes
library(fdth)
##
## Attaching package: 'fdth'
## The following objects are masked from 'package:stats':
##
## sd, var
#set de datos climaticos de Alamos, Sonora
#temperaturas promedio dentro de los parentesis
#declaramos variable <-
#c minuscula = contatenar (Asignar)
#dist diminutivo de distribución
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 distribucion
#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
#Donde
#f= frecuencia absoluta (cuantas veces sale el numero)
#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
#Sin sturges agarra rangos predeterminados
hist(ALAMOS, breaks="Sturges")
#Para mostrar muñtiples gráficas en una ventana
## Eliminado temporalmente (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")
#set de datos climaticos de CIUDAD OBREGON (DGE), Sonora
#temperaturas promedio dentro de los parentesis
#declaramos variable <-
#c minuscula = contatenar (Asignar)
#dist diminutivo de distribución
Obregon <- c(17.4, 18.6, 20.3, 23.5, 26.9, 30.6, 31.9, 31.6, 31.0, 27.5, 22.1, 17.9, 24.9)
dist <- fdt(Obregon, breaks="Sturges") #Calcula la distribucion
#de frecuencias según la regla de sturges
dist
## Class limits f rf rf(%) cf cf(%)
## [17.226,20.225) 3 0.23 23.08 3 23.08
## [20.225,23.223) 2 0.15 15.38 5 38.46
## [23.223,26.222) 2 0.15 15.38 7 53.85
## [26.222,29.22) 2 0.15 15.38 9 69.23
## [29.22,32.219) 4 0.31 30.77 13 100.00
#Donde
#f= frecuencia absoluta (cuantas veces sale el numero)
#rf= frecuencia relativa
#rf(%) frecuencia relativa porcentual
#cf= frecuencia acumulada
#cf(%)=frecuencia acumulada porcentual
sort(Obregon)
## [1] 17.4 17.9 18.6 20.3 22.1 23.5 24.9 26.9 27.5 30.6 31.0 31.6 31.9
#GENERACION DE HISTOGRAMA
#histograma de frecuencias absolutas
#Sin sturges agarra rangos predeterminados
hist(Obregon, breaks="Sturges")
#Para mostrar muñtiples gráficas en una ventana
#Eliminado temporalmente (par(mfrow=c(3,2))) # particiona mi ventana grafica en 3x2.
hist(Obregon, 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")
#Análisis:
#Según las diferentes graficas que podemos observar entre ALAMOS y CD. OBREGÓN, los climas en CD. Obregón son mas altos,
#esto se debe a que el ambiente en CD. Obregón es mas desértico y por lo tanto hace más calor, además de ser un estado relativamente cercano a la costa,
#por lo que en los climas secas los vuelve ligeramente mas fuerte, podemos observar que el pico de calor en Alamos es de 28.1 por el mes de Julio,
#mientras que en CD. Obregón se puede apreciar una permanencia de calor por los meses de Junio hasta Septiembre con poca diferencia en sus temperaturas
#llegando a un pico máximo de 31.9 por el mes de Julio.