##Ejercicio arboles
library(readxl)
Arboles <- read_excel("~/Arboles.xls")
View(Arboles)


promedio=mean(Arboles$peso)
mediana=median(Arboles$peso)
minimo=min(Arboles$peso)
maximo=max(Arboles$peso)
desviacion = sd(Arboles$peso)
data.frame(promedio,mediana,minimo,maximo,desviacion)

##   promedio mediana minimo maximo desviacion
## 1 18.76611  17.485   5.98  47.87   8.157309

hist(Arboles$peso, xlab = "Peso de los arboles", ylab = "Frecuencia", main = "Histograma de peso",)
abline(v=0.5,col="red",lwd=4)

boxplot(Arboles$peso,col = "red")

##Los argoles y su peso…

promedio=mean(Arboles$diametro)
mediana=median(Arboles$diametro)
minimo=min(Arboles$diametro)
maximo=max(Arboles$diametro)
desviacion = sd(Arboles$diametro)
data.frame(promedio,mediana,minimo,maximo,desviacion)

##   promedio mediana minimo maximo desviacion
## 1 5.445556     5.4    2.2    8.8   1.451784

hist(Arboles$diametro, xlab = "Diametro de los arboles", ylab = "Frecuencia", main = "Histograma de Diametro",)
abline(v=0.5,col="red",lwd=4)

boxplot(Arboles$diametro,col = "red")

##El diámetro

promedio=mean(Arboles$altura)
mediana=median(Arboles$altura)
minimo=min(Arboles$altura)
maximo=max(Arboles$altura)
desviacion = sd(Arboles$altura)
data.frame(promedio,mediana,minimo,maximo,desviacion)

##   promedio mediana minimo maximo desviacion
## 1 6.634444    6.45    3.3   11.3   1.799386

hist(Arboles$altura, xlab = "Altura de los arboles", ylab = "Frecuencia", main = "Histograma de Altura",)
abline(v=0.5,col="red",lwd=4)

boxplot(Arboles$altura,col = "red")