Palabras clave: compost, Lactuca sativa, mejorador biológico, diferencias morfológicas, biomasa seca, rendimiento foliar.
############################################################
########### hojas (g) #############
############################################################
## ANOVA ###################################################
############################################################
hojas.g <- aov(hojas.g ~ Tratamiento, data=Lechuga)
### NORMAL?
ifelse((shapiro.test(hojas.g$residuals))$p.value>0.05,"SI NORMALIDAD", "NO NORMALIDAD")
## [1] "NO NORMALIDAD"
### BALANCEADOS?
balanceado<-tapply(Lechuga$hojas.g, Lechuga$Tratamiento, length); ifelse(balanceado[1]-balanceado[2]==0,ifelse(balanceado[2]-balanceado[3]==0,ifelse(balanceado[3]-balanceado[4]==0,"Sí balanceados", "No balanceados")))
## 0%
## "Sí balanceados"
############################################################
## NO NORMAL -> Kruskall Wallis a posteriori ¿?
############################################################
kruskal.test (hojas.g ~ Tratamiento, data=Lechuga)
##
## Kruskal-Wallis rank sum test
##
## data: hojas.g by Tratamiento
## Kruskal-Wallis chi-squared = 51.541, df = 4, p-value = 1.721e-10
## BALANCEADOS o Muestras por tratamientos (n) > 6 o 20 -> Kruskall Wallis a posteriori Bonferroni
Comparacion<-pairwise.wilcox.test(Lechuga$hojas.g, Lechuga$Tratamiento, p.adj = "bonf", exact= F)
Comparacion<-ifelse(Comparacion$p.value<0.05, "Diferente", "Igual")
Comparacion
## 0% 100% 25% 50%
## 100% "Diferente" NA NA NA
## 25% "Igual" "Diferente" NA NA
## 50% "Diferente" "Diferente" "Igual" NA
## 75% "Diferente" "Igual" "Diferente" "Diferente"
############################################################
########### tallo (g) #############
############################################################
## ANOVA ###################################################
############################################################
tallo.g <- aov(tallo.g ~ Tratamiento, data=Lechuga)
### NORMAL?
ifelse((shapiro.test(tallo.g$residuals))$p.value>0.05,"SI NORMALIDAD", "NO NORMALIDAD")
## [1] "NO NORMALIDAD"
### BALANCEADOS?
balanceado<-tapply(Lechuga$tallo.g, Lechuga$Tratamiento, length); ifelse(balanceado[1]-balanceado[2]==0,ifelse(balanceado[2]-balanceado[3]==0,ifelse(balanceado[3]-balanceado[4]==0,"Sí balanceados", "No balanceados")))
## 0%
## "Sí balanceados"
############################################################
## NO NORMAL -> Kruskall Wallis a posteriori ¿?
############################################################
kruskal.test (tallo.g ~ Tratamiento, data=Lechuga)
##
## Kruskal-Wallis rank sum test
##
## data: tallo.g by Tratamiento
## Kruskal-Wallis chi-squared = 45.842, df = 4, p-value = 2.657e-09
## BALANCEADOS o Muestras por tratamientos (n) > 6 o 20 -> Kruskall Wallis a posteriori Bonferroni
Comparacion<-pairwise.wilcox.test(Lechuga$tallo.g, Lechuga$Tratamiento, p.adj = "bonf", exact= F)
Comparacion<-ifelse(Comparacion$p.value<0.05, "Diferente", "Igual")
Comparacion
## 0% 100% 25% 50%
## 100% "Diferente" NA NA NA
## 25% "Igual" "Diferente" NA NA
## 50% "Diferente" "Igual" "Diferente" NA
## 75% "Diferente" "Igual" "Diferente" "Igual"
############################################################
########### Raíz (g) ##############
############################################################
## ANOVA ###################################################
############################################################
Raiz.g <- aov(Raiz.g ~ Tratamiento, data=Lechuga)
### NORMAL?
ifelse((shapiro.test(Raiz.g$residuals))$p.value>0.05,"SI NORMALIDAD", "NO NORMALIDAD")
## [1] "NO NORMALIDAD"
### BALANCEADOS?
balanceado<-tapply(Lechuga$Raiz.g, Lechuga$Tratamiento, length); ifelse(balanceado[1]-balanceado[2]==0,ifelse(balanceado[2]-balanceado[3]==0,ifelse(balanceado[3]-balanceado[4]==0,"Sí balanceados", "No balanceados")))
## 0%
## "Sí balanceados"
############################################################
## NO NORMAL -> Kruskall Wallis a posteriori ¿?
############################################################
kruskal.test (Raiz.g ~ Tratamiento, data=Lechuga)
##
## Kruskal-Wallis rank sum test
##
## data: Raiz.g by Tratamiento
## Kruskal-Wallis chi-squared = 20.375, df = 4, p-value = 0.0004212
## BALANCEADOS o Muestras por tratamientos (n) > 6 o 20 -> Kruskall Wallis a posteriori Bonferroni
Comparacion<-pairwise.wilcox.test(Lechuga$Raiz.g , Lechuga$Tratamiento, p.adj = "bonf", exact= F)
Comparacion<-ifelse(Comparacion$p.value<0.05, "Diferente", "Igual")
Comparacion
## 0% 100% 25% 50%
## 100% "Igual" NA NA NA
## 25% "Igual" "Igual" NA NA
## 50% "Igual" "Igual" "Igual" NA
## 75% "Diferente" "Igual" "Igual" "Igual"
############################################################
########### total(g) ##############
############################################################
## ANOVA ###################################################
############################################################
total.g <- aov(total.g ~ Tratamiento, data=Lechuga)
### NORMAL?
ifelse((shapiro.test(total.g$residuals))$p.value>0.05,"SI NORMALIDAD", "NO NORMALIDAD")
## [1] "SI NORMALIDAD"
### BALANCEADOS?
balanceado<-tapply(Lechuga$total.g, Lechuga$Tratamiento, length); ifelse(balanceado[1]-balanceado[2]==0,ifelse(balanceado[2]-balanceado[3]==0,ifelse(balanceado[3]-balanceado[4]==0,"Sí balanceados", "No balanceados")))
## 0%
## "Sí balanceados"
############################################################
## NORMAL y BALANCEADOS -> ANOVA with a posteriori Tukey HSD
############################################################
total.g <- aov(total.g ~ Tratamiento, data=Lechuga)
summary(total.g)
## Df Sum Sq Mean Sq F value Pr(>F)
## Tratamiento 4 0.9136 0.22840 24.65 1.93e-12 ***
## Residuals 65 0.6023 0.00927
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Comparacion<-TukeyHSD(total.g)
Comparacion
## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = total.g ~ Tratamiento, data = Lechuga)
##
## $Tratamiento
## diff lwr upr p adj
## 100%-0% -0.29942857 -0.401509829 -0.19734731 0.0000000
## 25%-0% -0.07053571 -0.172616972 0.03154554 0.3077082
## 50%-0% -0.20657143 -0.308652686 -0.10449017 0.0000034
## 75%-0% -0.26166429 -0.363745544 -0.15958303 0.0000000
## 25%-100% 0.22889286 0.126811599 0.33097412 0.0000003
## 50%-100% 0.09285714 -0.009224115 0.19493840 0.0917128
## 75%-100% 0.03776429 -0.064316972 0.13984554 0.8367663
## 50%-25% -0.13603571 -0.238116972 -0.03395446 0.0034904
## 75%-25% -0.19112857 -0.293209829 -0.08904731 0.0000172
## 75%-50% -0.05509286 -0.157174115 0.04698840 0.5571117
Fig.1 Comparación de la biomasa seca de, A) Hojas, B) Tallo, C) Raíz, D) Total, sometidas a los distintos tratamientos.
############################################################
########### Proporción de hojas ################
############################################################
## ANOVA ###################################################
############################################################
hojas.total <- aov(hojas.total ~ Tratamiento, data=Lechuga)
### NORMAL?
ifelse((shapiro.test(hojas.total$residuals))$p.value>0.05,"SI NORMALIDAD", "NO NORMALIDAD")
## [1] "SI NORMALIDAD"
### BALANCEADOS?
balanceado<-tapply(Lechuga$hojas.total, Lechuga$Tratamiento, length); ifelse(balanceado[1]-balanceado[2]==0,ifelse(balanceado[2]-balanceado[3]==0,ifelse(balanceado[3]-balanceado[4]==0,"Sí balanceados", "No balanceados")))
## 0%
## "Sí balanceados"
############################################################
## NORMAL y BALANCEADOS -> ANOVA with a posteriori Tukey HSD
############################################################
hojas.total <- aov(hojas.total ~ Tratamiento, data=Lechuga)
summary(hojas.total)
## Df Sum Sq Mean Sq F value Pr(>F)
## Tratamiento 4 0.3898 0.09745 41.8 <2e-16 ***
## Residuals 65 0.1515 0.00233
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Comparacion<-TukeyHSD(hojas.total)
Comparacion
## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = hojas.total ~ Tratamiento, data = Lechuga)
##
## $Tratamiento
## diff lwr upr p adj
## 100%-0% -0.19719517 -0.24840123 -0.14598911 0.0000000
## 25%-0% -0.09769081 -0.14889687 -0.04648475 0.0000118
## 50%-0% -0.06436384 -0.11556991 -0.01315778 0.0067360
## 75%-0% -0.18686195 -0.23806801 -0.13565589 0.0000000
## 25%-100% 0.09950436 0.04829830 0.15071042 0.0000080
## 50%-100% 0.13283133 0.08162526 0.18403739 0.0000000
## 75%-100% 0.01033322 -0.04087284 0.06153928 0.9794738
## 50%-25% 0.03332697 -0.01787910 0.08453303 0.3677179
## 75%-25% -0.08917114 -0.14037720 -0.03796508 0.0000676
## 75%-50% -0.12249811 -0.17370417 -0.07129204 0.0000001
############################################################
########### Proporción de tallo ############
############################################################
## ANOVA ###################################################
############################################################
tallo.total <- aov(tallo.total ~ Tratamiento, data=Lechuga)
### NORMAL?
ifelse((shapiro.test(tallo.total$residuals))$p.value>0.05,"SI NORMALIDAD", "NO NORMALIDAD")
## [1] "NO NORMALIDAD"
### BALANCEADOS?
balanceado<-tapply(Lechuga$tallo.total, Lechuga$Tratamiento, length); ifelse(balanceado[1]-balanceado[2]==0,ifelse(balanceado[2]-balanceado[3]==0,ifelse(balanceado[3]-balanceado[4]==0,"Sí balanceados", "No balanceados")))
## 0%
## "Sí balanceados"
############################################################
############################################################
## NO NORMAL -> Kruskall Wallis a posteriori ¿?
############################################################
kruskal.test (tallo.total ~ Tratamiento, data=Lechuga)
##
## Kruskal-Wallis rank sum test
##
## data: tallo.total by Tratamiento
## Kruskal-Wallis chi-squared = 21.982, df = 4, p-value = 0.0002021
## BALANCEADOS o Muestras por tratamientos (n) > 6 o 20 -> Kruskall Wallis a posteriori Bonferroni
Comparacion<-pairwise.wilcox.test(Lechuga$tallo.total, Lechuga$Tratamiento, p.adj = "bonf", exact= F)
Comparacion<-ifelse(Comparacion$p.value<0.05, "Diferente", "Igual")
Comparacion
## 0% 100% 25% 50%
## 100% "Igual" NA NA NA
## 25% "Igual" "Igual" NA NA
## 50% "Diferente" "Igual" "Diferente" NA
## 75% "Igual" "Igual" "Diferente" "Igual"
############################################################
########### Proporción de raíz ############
############################################################
## ANOVA ###################################################
############################################################
raiz.total <- aov(raiz.total ~ Tratamiento, data=Lechuga)
### NORMAL?
ifelse((shapiro.test(raiz.total$residuals))$p.value>0.05,"SI NORMALIDAD", "NO NORMALIDAD")
## [1] "SI NORMALIDAD"
### BALANCEADOS?
balanceado<-tapply(Lechuga$raiz.total, Lechuga$Tratamiento, length); ifelse(balanceado[1]-balanceado[2]==0,ifelse(balanceado[2]-balanceado[3]==0,ifelse(balanceado[3]-balanceado[4]==0,"Sí balanceados", "No balanceados")))
## 0%
## "Sí balanceados"
############################################################
## NORMAL y BALANCEADOS -> ANOVA with a posteriori Tukey HSD
############################################################
raiz.total <- aov(raiz.total ~ Tratamiento, data=Lechuga)
summary(raiz.total)
## Df Sum Sq Mean Sq F value Pr(>F)
## Tratamiento 4 0.5162 0.12905 125.7 <2e-16 ***
## Residuals 65 0.0667 0.00103
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Comparacion<-TukeyHSD(raiz.total)
Comparacion
## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = raiz.total ~ Tratamiento, data = Lechuga)
##
## $Tratamiento
## diff lwr upr p adj
## 100%-0% 0.20861576 0.17464047 0.24259105 0.0000000
## 25%-0% 0.07504472 0.04106943 0.10902001 0.0000004
## 50%-0% 0.10455586 0.07058057 0.13853115 0.0000000
## 75%-0% 0.23152007 0.19754478 0.26549536 0.0000000
## 25%-100% -0.13357105 -0.16754634 -0.09959576 0.0000000
## 50%-100% -0.10405991 -0.13803520 -0.07008462 0.0000000
## 75%-100% 0.02290430 -0.01107099 0.05687959 0.3321647
## 50%-25% 0.02951114 -0.00446415 0.06348643 0.1184848
## 75%-25% 0.15647535 0.12250006 0.19045064 0.0000000
## 75%-50% 0.12696421 0.09298892 0.16093950 0.0000000
Fig.2 Comparación de los porcentajes de crecimiento en distintas secciones de la planta, A)Hojas, B)Raíz, C)Tallo.
############################################################
########### AFE (cm2/mg) #############
############################################################
## ANOVA ###################################################
############################################################
AFS.cm2.mg <- aov(AFS.cm2.mg ~ Tratamiento, data=Lechuga)
### ¿NORMAL?
ifelse((shapiro.test(AFS.cm2.mg$residuals))$p.value>0.05,"SI NORMALIDAD", "NO NORMALIDAD")
## [1] "NO NORMALIDAD"
### BALANCEADOS?
balanceado<-tapply(Lechuga$AFS.cm2.mg, Lechuga$Tratamiento, length); ifelse(balanceado[1]-balanceado[2]==0,ifelse(balanceado[2]-balanceado[3]==0,ifelse(balanceado[3]-balanceado[4]==0,"Sí balanceados", "No balanceados")))
## 0%
## "Sí balanceados"
############################################################
## NO NORMAL -> Kruskall Wallis a posteriori ¿?
############################################################
kruskal.test (AFS.cm2.mg ~ Tratamiento, data=Lechuga)
##
## Kruskal-Wallis rank sum test
##
## data: AFS.cm2.mg by Tratamiento
## Kruskal-Wallis chi-squared = 32.015, df = 4, p-value = 1.9e-06
## BALANCEADOS o Muestras por tratamientos (n) > 6 o 20 -> Kruskall Wallis a posteriori Bonferroni
Comparacion<-pairwise.wilcox.test(Lechuga$AFS.cm2.mg, Lechuga$Tratamiento, p.adj = "bonf", exact= F)
Comparacion<-ifelse(Comparacion$p.value<0.05, "Diferente", "Igual")
Comparacion
## 0% 100% 25% 50%
## 100% "Diferente" NA NA NA
## 25% "Diferente" "Diferente" NA NA
## 50% "Igual" "Diferente" "Igual" NA
## 75% "Diferente" "Igual" "Igual" "Igual"
Fig.3 Área foliar específica (cm2/g) de las plantas en distintos tratamientos.
############################################################
########### Crecimiento número de hojas ##############
############################################################
## ANOVA ###################################################
############################################################
c.hojas <- aov(c.hojas ~ Tratamiento, data=Lechuga)
### ¿NORMAL?
ifelse((shapiro.test(c.hojas$residuals))$p.value>0.05,"SI NORMALIDAD", "NO NORMALIDAD")
## [1] "SI NORMALIDAD"
### ¿BALANCEADOS?
balanceado<-tapply(Lechuga$c.hojas, Lechuga$Tratamiento, length); ifelse(balanceado[1]-balanceado[2]==0,ifelse(balanceado[2]-balanceado[3]==0,ifelse(balanceado[3]-balanceado[4]==0,"Sí balanceados", "No balanceados")))
## 0%
## "Sí balanceados"
############################################################
## NORMAL y BALANCEADOS -> ANOVA con prueba posteriori Tukey HSD
############################################################
c.hojas <- aov(c.hojas ~ Tratamiento, data=Lechuga)
summary(c.hojas)
## Df Sum Sq Mean Sq F value Pr(>F)
## Tratamiento 4 134.8 33.70 19.55 1.34e-10 ***
## Residuals 65 112.1 1.72
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Comparacion<-TukeyHSD(c.hojas)
Comparacion
## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = c.hojas ~ Tratamiento, data = Lechuga)
##
## $Tratamiento
## diff lwr upr p adj
## 100%-0% -3.7857143 -5.1782367 -2.3931919 0.0000000
## 25%-0% -1.0000000 -2.3925224 0.3925224 0.2705625
## 50%-0% -1.5714286 -2.9639510 -0.1789061 0.0192470
## 75%-0% -3.1428571 -4.5353796 -1.7503347 0.0000003
## 25%-100% 2.7857143 1.3931919 4.1782367 0.0000043
## 50%-100% 2.2142857 0.8217633 3.6068081 0.0003109
## 75%-100% 0.6428571 -0.7496653 2.0353796 0.6950017
## 50%-25% -0.5714286 -1.9639510 0.8210939 0.7785414
## 75%-25% -2.1428571 -3.5353796 -0.7503347 0.0005134
## 75%-50% -1.5714286 -2.9639510 -0.1789061 0.0192470
Fig.4 Comparación del crecimiento de número de hojas de la planta en los distintos tratamientos.
############################################################
########### Rendimiento de hojas ###################
############################################################
## ANOVA ###################################################
############################################################
raiz.area.hojas.mg.cm2 <- aov(raiz.area.hojas.mg.cm2 ~ Tratamiento, data=Lechuga)
### NORMAL?
ifelse((shapiro.test(raiz.area.hojas.mg.cm2$residuals))$p.value>0.05,"SI NORMALIDAD", "NO NORMALIDAD")
## [1] "NO NORMALIDAD"
### BALANCEADOS?
balanceado<-tapply(Lechuga$raiz.area.hojas.mg.cm2, Lechuga$Tratamiento, length); ifelse(balanceado[1]-balanceado[2]==0,ifelse(balanceado[2]-balanceado[3]==0,ifelse(balanceado[3]-balanceado[4]==0,"Sí balanceados", "No balanceados")))
## 0%
## "Sí balanceados"
############################################################
## NO NORMAL -> Kruskall Wallis a posteriori ¿?
############################################################
kruskal.test (raiz.area.hojas.mg.cm2 ~ Tratamiento, data=Lechuga)
##
## Kruskal-Wallis rank sum test
##
## data: raiz.area.hojas.mg.cm2 by Tratamiento
## Kruskal-Wallis chi-squared = 58.886, df = 4, p-value = 4.972e-12
## BALANCEADOS o Muestras por tratamientos (n) > 6 o 20 -> Kruskall Wallis a posteriori Bonferroni
Comparacion<-pairwise.wilcox.test(Lechuga$raiz.area.hojas.mg.cm2, Lechuga$Tratamiento, p.adj = "bonf", exact= F)
Comparacion<-ifelse(Comparacion$p.value<0.05, "Diferente", "Igual")
Comparacion
## 0% 100% 25% 50%
## 100% "Diferente" NA NA NA
## 25% "Diferente" "Diferente" NA NA
## 50% "Diferente" "Diferente" "Igual" NA
## 75% "Diferente" "Igual" "Diferente" "Diferente"
############################################################
### Rendimiento parte aérea (tallo(g)+hojas(g)/raíz(g)) ####
############################################################
## ANOVA ###################################################
############################################################
raiz.parte.area <- aov(raiz.parte.area ~ Tratamiento, data=Lechuga)
### NORMAL?
ifelse((shapiro.test(raiz.parte.area $residuals))$p.value>0.05,"SI NORMALIDAD", "NO NORMALIDAD")
## [1] "NO NORMALIDAD"
### BALANCEADOS?
balanceado<-tapply(Lechuga$raiz.parte.area , Lechuga$Tratamiento, length); ifelse(balanceado[1]-balanceado[2]==0,ifelse(balanceado[2]-balanceado[3]==0,ifelse(balanceado[3]-balanceado[4]==0,"Sí balanceados", "No balanceados")))
## 0%
## "Sí balanceados"
## NO NORMAL -> Kruskall Wallis a posteriori ¿?
############################################################
kruskal.test (raiz.parte.area ~ Tratamiento, data=Lechuga)
##
## Kruskal-Wallis rank sum test
##
## data: raiz.parte.area by Tratamiento
## Kruskal-Wallis chi-squared = 59.463, df = 4, p-value = 3.762e-12
## BALANCIADOS o Muestras por tratamientos (n) > 6 o 20 -> Kruskall Wallis a posteriori Bonferroni
Comparacion<-pairwise.wilcox.test(Lechuga$raiz.parte.area, Lechuga$Tratamiento, p.adj = "bonf", exact= F)
Comparacion<-ifelse(Comparacion$p.value<0.05, "Diferente", "Igual")
Comparacion
## 0% 100% 25% 50%
## 100% "Diferente" NA NA NA
## 25% "Diferente" "Diferente" NA NA
## 50% "Diferente" "Diferente" "Igual" NA
## 75% "Diferente" "Igual" "Diferente" "Diferente"
Fig.5 Rendimiento de las plantas de lechuga en los distintos tratamientos A) Relación hoja (cm2) / raíz (g). B) Relación parte aérea (g) / raíz (g).
Fig. 6 Nivel de pH en los distintos tratamientos.
Con respecto a la fig.1 los, los resultados se pueden explicar de acuerdo al enunciado por Añez Roverol y Tavira, (1981), quien afirma que la deficiencia de nitrógeno en plantas presenta algunos síntomas, de los cuales cabe mencionar que: el follaje se torna verde pálido y las hojas son anormalmente lisas, y en las variedades “de roseta”, la formación de ésta se retarda. Cuando la deficiencia es severa las hojas son pequeñas y amarillentas, especialmente en las puntas, y las hojas más viejas se amarillean prematuramente, se secan y no se forman rosetas. No obstante, puede presentarse deficiencia de Nitrógeno sin que el cultivo presente síntomas visibles, pero no le permite al cultivo tener un buen rendimiento, este tipo de deficiencia es llamada “apetito latente”. (Alcalá, A., Fernández, N. N., & Aguirre, C. M., 2008) Por lo tanto, al haber una mejor respuesta en el crecimiento de las plantas sometidas a los tratamientos que contenían una menor proporción de materia orgánica, concluimos que la tierra utilizada presenta mejores condiciones para el crecimiento de las plantas (nutrientes y productos nitrogenados) con respecto a el compost utilizado.
Los resultados de la fig.2 no fueron los esperados, ya que a nivel de productividad, resulta más conveniente un mayor crecimiento de la parte aérea (hojas y tallo) y en menor proporción de la raíz, lo cual resultó contrario en este experimento. La deficiencia de nitrógeno puede provocar el crecimiento excesivo de la raíz debido a que esta se extiende buscando este elemento, el cual es esencial para su crecimiento, al no haber disponibilidad del mismo se da un crecimiento deficiente de las hojas y tallo y un crecimiento excesivo de raíces (Barbazán & de Suelos, 1998).
Cuando una planta presenta una AFE muy elevada significa que las hojas son frágiles y finas, se incrementa el riesgo pérdidas de tejido, al contrario de las que presentan una menor AFE, sus hojas son más densas y tienen correlaciones altas con una mayor lignificación, bajo contenido de humedad y baja concentración de nitrógeno.(Amaro, J. A. P., Moya, E. G., Quiroz, J. F. E., Carrillo, A. R. Q., Pérez, J. P., & Garay, A. H., 2004). Por lo tanto, para los resultados de la fig.3 se evidencia una menor concentración de nitrógeno en las plantas que presentaron una AFE mayor.
El crecimiento en el número de hojas (fig.4) se vio más reducido en las plantas con mayor porcentaje de materia orgánica, lo cual se respalda con la literatura que dice que este es uno de los síntomas que se presentan por la deficiencia de nitrógeno que presentaban estos sustratos.
Las plantas con mayor rendimiento foliar (fig.5A), fueron las sometidas a mayor proporción de materia orgánica en los sustratos, aunque tuvieron un menor diámetro con respecto a los demás tratamientos, su área foliar explica que tuvieron un mayor grosor, lo cual es favorable con respecto al peso que presentó la raíz de cada planta, aunque a nivel productivo no es lo mas conveniente.
Con respecto al pH (fig.6), la lechuga es altamente sensible a la acidez del suelo y en menor grado a la alcalinidad (La Rosa Villarreal, O. J.,2015). Los valores de pH obtenidos en cada tratamiento están en el rango óptimo para el crecimiento de las plantas de lechuga, por lo cual podemos afirmar que los valores de pH del sustrato no fueron la causa del crecimiento deficiente de las plantas sometidas a tratamientos con mayor porcentaje de compost.
Con los resultados obtenidos se concluye que el compost no funcionó porque las plantas presentaron una deficiencia de nitrógeno. El compost para ser de buena calidad requiere de la presencia de microorganismos para transformar los compuestos orgánicos del nitrógeno presentes en la materia en descomposición, en compuestos inorgánicos como la urea, por un proceso llamado mineralización. (Márquez, P. B., Blanco, M. J. D., & Capitán, F. C. ,2008). El proceso de mineralización del nitrógeno permite que este sea absorbido con mayor facilidad por las plantas. Dicho proceso en el compost se puede ver perjudicado por factores como la temperatura y el contenido hídrico del compost (Cabrera, M., 2007). La presencia de las bacterias en el sustrato de las plantas de lechuga, permite un mayor aprovechamiento del nitrógeno y fósforo, los efectos positivos se ven reflejados en las mediciones de peso seco (Díaz Vargas, P., Ferrera Cerrato, R., Almaraz Suárez, J. J., & Alcantar González, G. ,2001).Se determinó que a mayor porcentaje de compost las plantas presentan un crecimiento deficiente (menor peso de biomasa seca, menor número de hojas, mayor grosor de hojas, mayor proporción de raíz). En contraste, a menor porcentaje de compost o ausencia del mismo, la planta presenta un crecimiento más robusto (mayor peso de biomasa seca, mayor número de hojas, menor grosor de hojas, menor proporción de raíz).
Se evidenció, por medio de la medición de pH en los sustratos usados en cada tratamiento, que el pH no fue un factor importante en el crecimiento de las plantas, dado a que no varió significativamente en cada tratamiento.
Cuadro 1. Relaciones entre variables según los tratamientos.
Alcalá, A., Fernández, N. N., & Aguirre, C. M. (2008). Respuesta del cultivo de lechuga (Lactuca sativa L.) a la fertilización nitrogenada.
Amaro, J. A. P., Moya, E. G., Quiroz, J. F. E., Carrillo, A. R. Q., Pérez, J. P., & Garay, A. H. (2004). Análisis de crecimiento, área foliar específica y concentración de nitrógeno en hojas de pasto" mulato“(Brachiaria híbrido, cv.). Revista Mexicana de Ciencias Pecuarias, 42(3), 447-458.
Barbazán, M., & de Suelos, A. D. F. (1998). Análisis de plantas y síntomas visuales de deficiencia de nutrientes. Facultad de Agronomía. Universidad de la Republica Montevideo-Uruguay.
Brito, L. M. (1999). Lettuce (Lactuca sativa L.) and cabbage (Brassica oleracea L. var. capitata L.) growth in soil mixed with municipal solid waste compost and paper mill sludge composted with bark. In International Conference on Environmental Problems Associated with Nitrogen Fertilisation of Field Grown Vegetable Crops 563 (pp. 131-137).
Cabrera, M. L. (2007). Mineralización y Nitrificación: procesos claves en el ciclo del Nitrógeno. Informaciones Agronómicas del Cono Sur, 34, 1-9.
Celis, J., Sandoval, M., Zagal, E., & Briones, M. (2006). Efecto de la adición de biosólidos urbanos y de salmonicultura sobre la germinación de semillas de lechuga (Lactuca sativa L.) en un suelo patagónico. Revista de la ciencia del suelo y nutrición vegetal, 6(3), 13-25.
De Grazia, J., Tittonell, P., & Chiesa, A. (2001). Efecto de la época de siembra, radiación y nutrición nitrogenada sobre el patrón de crecimiento y el rendimiento del cultivo de lechuga (Lactuca sativa L.). Invest. Agr. Prod. Prot. Veg, 16(3), 356-365.
Ganuza Larumbe, E. (2014). Disponibilidad de nutrientes en fertilizantes orgánicos e inorgánicos a corto plazo en cultivo de lechuga y espinaca.
Jiménez-Morales, V. D., Trejo-Téllez, L. I., Gómez-Merino, F. C., & Volke-Haller, V. H. (2014). Modelos de simulación del crecimiento de lechuga en respuesta a la fertilización orgánica y mineral. Revista fitotecnia mexicana, 37(3), 249-254.
Julca-Otiniano, A., Meneses-Florián, L., Blas-Sevillano, R., & Bello-Amez, S. (2006). La materia orgánica, importancia y experiencia de su uso en la agricultura. Idesia (Arica), 24(1), 49-61.
La Rosa Villarreal, O. J. (2015). Cultivo de lechuga (Lactuca sativa L.) bajo condiciones del valle del Rímac, Lima.
López-Cruz, I. L., Salazar-Moreno, R., Rojano-Aguilar, A., & Ruiz-García, A. (2012). Análisis de sensibilidad global de un modelo de lechugas (Lactuca sativa L.) cultivadas en invernadero. Agrociencia, 46(4), 383-397.
Márquez, P. B., Blanco, M. J. D., & Capitán, F. C. (2008). 4. Factores que afectan al proceso de compostaje. Compostaje, 93.
Pascual, R., & Venegas, S. (2015). La materia orgánica del suelo. papel DE los microorganismos. Rodríguez, M., & Florez, V. (2004). Elementos esenciales y beneficiosos.
Rodríguez Ortiz, J. C. (1998). Efecto del nitrógeno, fósforo y potasio en el crecimiento y producción de plántulas de tomate (Lycopersicum esculentun Mill) var. Floradade (Doctoral dissertation, Universidad Autónoma de Nuevo León).
Terry Alfonso, E., Ruiz Padrón, J., Tejeda Peraza, T., Reynaldo Escobar, I., & Díaz de Armas, M. M. (2011). Respuesta del cultivo de la lechuga (Lactuca sativa L.) a la aplicación de diferentes productos bioactivos. Cultivos tropicales, 32(1), 28-37.
Torrentó, M. S., Martínez, M. L., & Pujol, Ó. H. (2008). 3. Antecedentes y fundamentos del proceso de compostaje. Compostaje, 75.