DOS MEDIAS

En un estudio para analizar la evolución de tubérculos almacenados, se deseaba comparar dos épocas de cosecha: Abril y Agosto, las que determinan diferentes periodos de almacenamiento. La variable en estudio fue la pérdida de peso por deshidratación (en gr). El objetivo es determinar si la época de cosecha de los tubérculos tiene efecto sobre la pérdida de peso promedio por deshidratación.

Unidad Experimental: Tubérculos, n=20

Variable Respuesta: Perdida de peso por deshidratación en gramos.

Factor: Época de cosecha

Tratamientos: 2, se evaluaron los meses de Abril y Agosto

Réplicas: 10 tubérculos evaluados en cada época.

CONSTRUCCION DEL DISEÑO

Epoca
Agosto 33.25 27.75 32.15 21.16 25.19 23.42 26.87 22.36 24.13 30.22
Abril 35.56 36.89 47.05 44.36 42.05 43.58 37.63 40.21 39.98 41.54

https://rpubs.com/Juve_Campos/tablasRMarkdown

\[H_o:\mu_1=\mu_2\\ H_1:\mu_1\ne\mu_2\]

\[H_o: \frac{\sigma^2_1}{\sigma^2_2}=1\\ H_1:\frac{\sigma^2_1}{\sigma^2_2}\ne1\]

library(readxl)
datos=read_xlsx("EPOCA.xlsx")
str(datos)
## tibble [20 × 2] (S3: tbl_df/tbl/data.frame)
##  $ Epoca: chr [1:20] "Abril" "Abril" "Abril" "Abril" ...
##  $ Peso : num [1:20] 35.6 36.9 47 44.4 42 ...

ANALISIS DESCRIPTIVO

aggregate(datos$Peso, by=list(datos$Epoca), mean)
##   Group.1      x
## 1   Abril 40.885
## 2  Agosto 26.650
aggregate(datos$Peso, by=list(datos$Epoca), var)
##   Group.1        x
## 1   Abril 12.81305
## 2  Agosto 17.25249
aggregate(datos$Peso, by=list(datos$Epoca), sd)
##   Group.1        x
## 1   Abril 3.579532
## 2  Agosto 4.153612
boxplot(datos$Peso~datos$Epoca,
        main="Box Plot para Peso según Época",
        xlab = "Época",
        ylab = "Peso en gramos")

var.test(Peso~Epoca, datos)
## 
##  F test to compare two variances
## 
## data:  Peso by Epoca
## F = 0.74268, num df = 9, denom df = 9, p-value = 0.6648
## alternative hypothesis: true ratio of variances is not equal to 1
## 95 percent confidence interval:
##  0.1844708 2.9900187
## sample estimates:
## ratio of variances 
##          0.7426784
t.test(Peso~Epoca, datos, paired=F, var.equal = TRUE)
## 
##  Two Sample t-test
## 
## data:  Peso by Epoca
## t = 8.2096, df = 18, p-value = 1.692e-07
## alternative hypothesis: true difference in means between group Abril and group Agosto is not equal to 0
## 95 percent confidence interval:
##  10.59212 17.87788
## sample estimates:
##  mean in group Abril mean in group Agosto 
##               40.885               26.650