Ejercicio Propuesto 1 (Resuelto)


library("BrailleR")

a)

diam = c(8.3, 8.6, 8.8, 10.5, 10.5, 10.8, 11, 11, 11.1, 11.2, 11.3, 11.4, 11.4, 11.7, 12, 12.9, 12.9)
alt = c(70, 65, 63, 72, 81, 83, 66, 75, 80, 75, 79, 76, 76, 69, 75, 74, 85)
vol = c(10.3, 10.3, 10.2, 16.4, 18.8, 19.7, 15.6, NA, 22.6, 19.9, 24.2, 21, 21.4, 21.3, 19.1, 22.2, 33.8)
var =  c("B", "A", "R", "R", "R", "R", "B", "A", "R", "B", "A", "B", "R", "R", "A", "A", "B")
RegA =  data.frame (diam, alt, vol, var)
RegA

diam = c(13.3, 13.7, 13.8, 14, 14.2, 14.5, 16, 16.3, 17.3, 17.5, 17.9, 18, 18, 20.6)
alt = c(86, 71, 64, 78, 80, 74, 72, 77, 81, 82, 80, 80, 80, 87)
vol = c(27.4, 25.7, 24.9, NA, 31.7, 36.3, 38.3, 42.6, 55.4, 55.7, 58.3, NA, 51, 77)
var = c("A", "R", "R", "A", "A", "R", "R", "R", "B", "B", "A", "R", "B", "R")
RegB = data.frame (diam, alt, vol, var)
RegB

b)

pie(table(RegA$var), main = "Variedad de los cerezos de la región A", col = c("yellow", "white", "pink"))
pie(table(RegB$var), main = "Variedad de los cerezos de la región B", col = c("yellow", "white", "pink"))

c)

y.hist1 = hist(RegA$alt, main = "Altura de los cerezos en la regi?n A", xlab = "Altura", ylab = "Frecuencia")
VI(y.hist1)
y.hist2 = hist(RegB$alt, main = "Altura de los cerezos en la regi?n B", xlab = "Altura", ylab = "Frecuencia")
VI(y.hist2)
d)
y.box1 = boxplot(RegA$alt, main = "Diámetro de los cerezos en la región A")
VI(y.box1)
y.box2 = boxplot(RegB$diam, main = "Diámetro de los cerezos en la región B")
VI(y.box2)
e)
quantile(RegA$diam, probs = 0.30)
30% 
10.74

quantile(RegB$alt, probs = 0.75)
  75% 
80.75

f)
CV_vol_A <- sd(RegA$vol, na.rm = TRUE)/mean(RegA$vol, na.rm = TRUE)
CV_vol_A
[1] 0.3106773
CV_vol_B <- sd(RegB$vol, na.rm = TRUE)/mean(RegB$vol, na.rm = TRUE)
CV_vol_B
[1] 0.3670137

g)
mean(RegA$alt)
[1] 74.35294

mean(RegB$alt)
[1] 78

median(RegA$alt)
[1] 75

median(RegB$alt)
[1] 80

h)

install.packages("e1071")   # Es necesario si aún no se ha instalado
library(e1071)

skewness(RegA$diam)
[1] -0.5608155

kurtosis(RegA$diam)
[1] -0.4475198
y = RegA$diam
y
UniDesc(y)