#Segundo ejercicio de PyE Soft
setwd("~/Probabilidad y Estadistica")
library(fdth)
##
## Attaching package: 'fdth'
## The following objects are masked from 'package:stats':
##
## sd, var
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)
ElYeso <- c(10.8,12.2,14.3,17.3,22.0, 26.7,28.6,27.5, 25.9,20.2,14.6, 10.6, 19.2)
#Asignacion de los datos para el generado de la
#tabla de Distance Matrix Computation con base los datos de Alamos
dist <- fdt(Alamos, breaks="Sturges")
#Asignacion de los datos para el generado de la
#tabla de Distance Matrix Computation con base los datos de ElYeso
distY <-fdt(ElYeso, breaks="Sturges")
#Generamos la tabla con los datos de Alamos
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
#Generamos la tabla con los datos de ElYeso
distY
## Class limits f rf rf(%) cf cf(%)
## [10.494,14.172) 3 0.23 23.08 3 23.08
## [14.172,17.851) 3 0.23 23.08 6 46.15
## [17.851,21.529) 2 0.15 15.38 8 61.54
## [21.529,25.208) 1 0.08 7.69 9 69.23
## [25.208,28.886) 4 0.31 30.77 13 100.00
#Aqui es se organizan de forma creciente los datos de Alamos
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
#Aqui es se organizan de forma creciente los datos de ElYeso
sort(ElYeso)
## [1] 10.6 10.8 12.2 14.3 14.6 17.3 19.2 20.2 22.0 25.9 26.7 27.5 28.6
#*
#*Aqui podemos ver como los cambios climaticos de los Alamos (Sonora) son mas variados
#*siempre es alternado los valores, alcanzando 2 minimos y 2 maximos en una misma grafica
#*
hist(Alamos, breaks = "Sturges")#histograma utilizando el numero de clases según Sturge
#*
#*Aqui podemos ver como se comportan los valores de El Yeso (Sonorea)
#*se observa como las temperaturas de El Yeso estan mas estables alcazando 2 minimos
#*pero no 2 maximos esto se debe a que en el trascurso de el tiempo el cambio de clima es menos drastico
#*en El Yeso(Sonora) que en Alamos (Sonora).
hist(ElYeso, breaks = "Sturges")#histograma utilizando el numero de clases según Sturge
#*Se puede observar en las grficas que prensentan los datos de Alamos siempre tiene
#*
#*Las 2 filas de cada uan 4 graficas que se encuentran en paralelo
#*se puede apreciar el comportamiento climatico de forma grafica en el se presentan de manera detallada
#*los graficos.
#*
par(mfrow=c(3,3)) # particiona mi ventana grafica en 4x4.
plot(distY, type="cfh", col="red") #histograma de frecuencias acumulada
plot(distY, type="cfp", col = "purple") #poligono de frecuencias acumulado
plot(distY, type="fh")
plot(distY, type="fh", col="blue") #si desea añadir color a su grafico
plot(dist, type="cfh", col="red") #histograma de frecuencias acumulada
plot(dist, type="cfp", col = "purple") #poligono de frecuencias acumulado
plot(dist, type="fh")
plot(dist, type="fh", col="blue") #si desea añadir color a su grafico
