R/ Se debe utilizar el modelo anidado, aleatorizado y factores completos, debido a que dentro de cada condición de luz (alta y baja) se aplicaron dos niveles de nitrogeno
library(readxl)
data <- read.table("https://raw.githubusercontent.com/JPASTORPM/Database/master/Luz_nitr%C3%B3geno.txt ", header = TRUE, dec = ".", sep = "\t")
data
data$luz<-as.factor(data$luz)
data$nitrogeno<-as.factor(data$nitrogeno)
str(data)
data$luz_nitrogeno = factor(data$luz:data$nitrogeno)
xtabs(formula = data$TDM ~ data$luz + data$luz_nitrogeno)
anidado = aov(data$TDM ~ data$luz + data$luz/data$nitrogeno)
summary(anidado)
TukeyHSD(anidado)
R/Si se encontraron diferencias significativas entre los niveles de luz, alta > baja (F(1,54) = 188.9, p < 0.05)
R/ Se encontraron diferencias significativas entre luz alta y baja, con y sin nitrogeno (F(2,54) = 186.2, p < 0.05)
La luz influye en la biomasa total de las plantas (F(1,54) = 188.9, p < 0.05) asi como la cantidad de nitrogeno dentro de cada condicion de luz (F(2,54) = 186.2, p < 0.05)
maltodextrosa$tratamiento<-as.factor(maltodextrosa$tratamiento)
maltodextrosa$acidez<-as.factor(maltodextrosa$acidez)
str(maltodextrosa)
model<-aov(maltodextrosa$maltodextrosa ~ maltodextrosa$acidez + maltodextrosa$tratamiento + maltodextrosa$acidez*maltodextrosa$tratamiento)
summary(model)
R/ Se utiliza un diseño bifactorial completamente aleatorizado con replicación
R/ Sí existen diferencias significativas en la concentración de maltodextrosa entre los tratamientos, B > C > A (F(2,24) = 92.78 , p < 0.05)
R/Sí existen diferencias significativas en la concentración de maltodextrosa entre los niveles de acidez, B > C > A (F(3,24) = 29.09 , p < 0.05)
R/ Si existe una interaccion entre los tratamientos de fermentacion y la concentracion del acido (F(6,24) = 51.19, p < 0.05)
Existen diferencias significativas en la concentración de maltodextrosa entre los tratamientosB > C > A (F(2,24) = 92.78 , p < 0.05) y entre la interaccion entre los tratamientos de fermentacion y la concentracion del acido(F(6,24) = 51.19, p < 0.05)