R Notebook

Integrantes: Santiago Guerrero Rondon- Valentina Valle Velasco

Datos en vectores, medias de los datos

t_45 = c(69, 66, 72, 68, 65, 66, 67, 68,69, 69, 66, 68, 64, 67, 60, 68)
t_77 = c(873, 850, 832, 834, 843, 840, 895, 790, 905, 910, 920, 840, 832, 800, 759, 812)

m_45 = psych::describe(t_45)
m_77 = psych::describe(t_77)
m_45$mean;m_77$mean

[1] 67
[1] 845.9375

Prueba de hipotesis

\[Ho: t_{77} < t_{45}\\ Ha: t_{77} > t_{45}\]

Prueba t-Dos muestras dependientes/pareadas

ts = t.test(t_77,t_45, alternative = "t", mu = 0, paired = TRUE, var.equal = FALSE, conf.level = 0.95);ts

    Paired t-test

data:  t_77 and t_45
t = 70.276, df = 15, p-value < 2.2e-16
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 755.3126 802.5624
sample estimates:
mean of the differences 
               778.9375 

ifelse(ts$p.value < 0.05, 'Rechazo la Ho', 'No rechazo la Ho')

[1] "Rechazo la Ho"

2 Boxplot para comparar: Se cambio la escala a uno de ellos para poder visualizarlo mejor

data2 = data.frame(values = c(tuberculos_45, tuberculos_77), group = c(rep("45",16), rep("77",16)))
boxplot(values ~ group, data2, main = "Comparacion Grafica", xlab = "Dias despues de la siembra", ylab = "Rendimiento en Kg/ha")
points(c(1,2), c(mean(tuberculos_45), mean(tuberculos_77)), pch = 15, col = 'red')

datuberculos = data.frame(values = c(tuberculos_45, ultuberculos_77), group = c(rep("45",16), rep("77",16)))
boxplot(values ~ group, datuberculos, main = "Comparacion Grafica (modificando la escala)", xlab = "Dias despues de la siembra", ylab = "Rendimiento en Kg/ha")
points(c(1,2), c(mean(tuberculos_45), mean(ultuberculos_77)), pch = 15, col = 'red')

Coeficiente de correlacion de Pearson

cc = cor(t_45, t_77);cc

[1] 0.391328

crp1 = 100*(mean(t_77) - mean(t_45))/mean(t_45);crp1

[1] 1162.593

crp2 = 100*(mean(t_77) - mean(t_45))/mean(t_77);crp2

[1] 92.07979

dif_med = (mean(t_77) - mean(t_45)) 
dif_med

[1] 778.9375

Conclusiones

A partir del rechazo de la hipotesis nula, se puede concluir que hay un aumento en el rendimiento, es decir, la fertilizacion ayudo al mejoramiento de la planta durante la toma de las muestras.

A traves del cambio relativo promedio y el grafico de boxplot se puede apreciar la gran diferencia que existe entre los valores de las medias de el dia 45 y el dia 77 despues de la siembra, por lo tanto se observa un incremento marcado en el rendimiento por dia.