1 Librerías usadas

library(readxl)
library(dplyr)
## 
## Adjuntando el paquete: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(ggplot2)
library(agricolae)
library(collapsibleTree)
library(car)
## Warning: package 'car' was built under R version 4.6.1
## Cargando paquete requerido: carData
## 
## Adjuntando el paquete: 'car'
## The following object is masked from 'package:dplyr':
## 
##     recode
library(emmeans)
## Warning: package 'emmeans' was built under R version 4.6.1
## Welcome to emmeans.
## Caution: You lose important information if you filter this package's results.
## See '? untidy'
library(knitr)
## Warning: package 'knitr' was built under R version 4.6.1

###Diseño experimental

# 1. Creamos el dataset con tus factores específicos

variedad = 
  gl(n = 4, k =1, length = 80, labels = 
     c("Guineo", "Harton", "3 Filos", "Cacho de buey"))

Microorganismos= 
  gl(n=3,k=11,length = 80,labels=
       c("Glomus mosseae","Bacillus subtilis","Control"))

Bloque= 
  gl(n=2,k=11,length = 80,labels=
       c("2% de pendiente","10% de pendiente"))


datos_Platano=data.frame(variedad,Bloque,Microorganismos)

# 2. Generamos el árbol colapsable interactivo
collapsibleTree(
  datos_Platano,
  hierarchy = c("Bloque", "Microorganismos","variedad"), # El orden de tus factores
  root = "Ensayo Platano",            # Nodo raíz
  zoomable = FALSE                        # Permite hacer zoom y arrastrarlo
)

1.1 Adjuntando datos

datos.platano <- read_excel("Experimento Platano.xlsx")

View(datos.platano)

1.1.1 Modelo estadístico

#modelo <- aov(resopuesta~factor_a*factor_b+error(Bloque/factor_a) )

# Renombrar columnas
names(datos.platano) <- c("bloque", "micorriza", "variedad", "planta", "kg_racimo")

# Convertir variables a factores
datos <- datos.platano %>%
 
  mutate(
    bloque = factor(bloque, levels = c("Pendiente 2%", "Pendiente 10%")),
    micorriza = factor(micorriza, levels = c("Bacillus subtilis", "Glomus mosseae","Control")),
    variedad = factor(variedad, levels = c("Guineo", "Hartón", "3 Filos", "Cacho de buey")),
    planta = factor(planta),
    kg_racimo = as.numeric(kg_racimo)
  )

names(datos)
## [1] "bloque"    "micorriza" "variedad"  "planta"    "kg_racimo"
str(datos)
## tibble [96 × 5] (S3: tbl_df/tbl/data.frame)
##  $ bloque   : Factor w/ 2 levels "Pendiente 2%",..: 1 2 2 2 1 1 2 2 1 1 ...
##  $ micorriza: Factor w/ 3 levels "Bacillus subtilis",..: 3 3 3 3 3 3 3 3 1 3 ...
##  $ variedad : Factor w/ 4 levels "Guineo","Hartón",..: 3 2 2 3 1 3 1 1 3 1 ...
##  $ planta   : Factor w/ 4 levels "P1","P2","P3",..: 2 4 3 4 1 1 1 3 1 3 ...
##  $ kg_racimo: num [1:96] 8 8.8 9 9 10 10 11 11 12 12 ...

2 Resultados

2.1 ANOVA

modelo_pd_submuestras <- aov(
  kg_racimo ~ bloque + variedad * micorriza,
  data = datos
)

anova_resultados <- summary(modelo_pd_submuestras)

anova_tabla <- anova_resultados[[1]]

anova_tabla
##                    Df Sum Sq Mean Sq F value    Pr(>F)    
## bloque              1   5.25   5.255  0.5128   0.47594    
## variedad            3 454.32 151.439 14.7788 8.546e-08 ***
## micorriza           2 287.78 143.892 14.0422 5.586e-06 ***
## variedad:micorriza  6 120.89  20.149  1.9663   0.07976 .  
## Residuals          83 850.51  10.247                      
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

2.1.1 Interpretacion Tradicional

# Extraer la tabla ANOVA
anova_tabla <- anova_resultados[[1]]

# Extraer F y p-valores
F_bloque      <- anova_tabla["bloque", "F value"]

p_variedad <- anova_tabla[2, "Pr(>F)"]
p_micorriza   <- anova_tabla["micorriza", "Pr(>F)"]
p_interaccion <- anova_tabla["variedad:micorriza", "Pr(>F)"]

#-------------------------------------------------------
# La eficiencia de Bloqueo
#-------------------------------------------------------
cat("BLOQUE\n")
## BLOQUE
cat("F =", round(F_bloque,3), "\n")
## F = 0.513
if(F_bloque > 1){

  cat("Conclusión:\n")
  cat("El valor F es mayor que 1.\n")
  cat("El bloqueo fue eficiente, ya que explicó una proporción de la variabilidad mayor que el error experimental.\n")

}else{

  cat("Conclusión:\n")
  cat("El valor F es menor o igual a 1.\n")
  cat("El bloqueo no fue eficiente, ya que no logró reducir la variabilidad experimental respecto al error.\n")

}
## Conclusión:
## El valor F es menor o igual a 1.
## El bloqueo no fue eficiente, ya que no logró reducir la variabilidad experimental respecto al error.
#-------------------------------------------------------
# Variedad
#-------------------------------------------------------
cat("VARIEDAD\n")
## VARIEDAD
cat("p =", signif(p_variedad,4), "\n")
## p = 8.546e-08
if(is.na(p_variedad)){
  cat("No fue posible encontrar el p-valor de Variedad.\n")
}else if(p_variedad < 0.05){
  cat("Se rechaza H0.\n")
  cat("Existen diferencias significativas entre variedades.\n")
  cat("Se recomienda realizar la prueba de Tukey.\n\n")
}else{
  cat("No se rechaza H0.\n")
  cat("No existen diferencias significativas entre variedades.\n\n")
}
## Se rechaza H0.
## Existen diferencias significativas entre variedades.
## Se recomienda realizar la prueba de Tukey.
#-------------------------------------------------------
# Micorriza
#-------------------------------------------------------
cat("MICORRIZA\n")
## MICORRIZA
cat("p =", signif(p_micorriza,4), "\n")
## p = 5.586e-06
if(p_micorriza < 0.05){
  cat("Se rechaza H0.\n")
  cat("Existen diferencias significativas entre micorrizas.\n")
  cat("Se recomienda realizar la prueba de Tukey.\n\n")
}else{
  cat("No se rechaza H0.\n")
  cat("No existen diferencias significativas entre micorrizas.\n\n")
}
## Se rechaza H0.
## Existen diferencias significativas entre micorrizas.
## Se recomienda realizar la prueba de Tukey.
#-------------------------------------------------------
# Interacción
#-------------------------------------------------------
cat("INTERACCIÓN (Variedad × Micorriza)\n")
## INTERACCIÓN (Variedad × Micorriza)
cat("p =", signif(p_interaccion,4), "\n")
## p = 0.07976
if(p_interaccion < 0.05){
  cat("Se rechaza H0.\n")
  cat("Existe interacción significativa entre variedad y micorriza.\n")
  cat("Los efectos principales deben interpretarse con cautela y se recomienda analizar los efectos simples.\n")
  }else{
  cat("No se rechaza H0.\n")
  cat("No existe interacción significativa entre variedad y micorriza.\n")
  cat("Los efectos principales pueden interpretarse de forma independiente.\n")
  }
## No se rechaza H0.
## No existe interacción significativa entre variedad y micorriza.
## Los efectos principales pueden interpretarse de forma independiente.

2.2 ANOVA Alternativo

2.2.1 Interpretacion Alternativa

3 Supuestos

3.1 Normalidad

residuales <- residuals(modelo_pd_submuestras)

shapiro.test(residuales)
## 
##  Shapiro-Wilk normality test
## 
## data:  residuales
## W = 0.98947, p-value = 0.6497

3.2 Homoceasticidad

datos$Tratamiento <- interaction(datos$micorriza,
                                 datos$variedad)

leveneTest(kg_racimo ~ Tratamiento,
           data = datos)
## Levene's Test for Homogeneity of Variance (center = median)
##       Df F value Pr(>F)  
## group 11  2.2177 0.0206 *
##       84                 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

3.3 Homogeneidad de varianzas

TukeyHSD(modelo_pd_submuestras)
##   Tukey multiple comparisons of means
##     95% family-wise confidence level
## 
## Fit: aov(formula = kg_racimo ~ bloque + variedad * micorriza, data = datos)
## 
## $bloque
##                                  diff       lwr       upr     p adj
## Pendiente 10%-Pendiente 2% -0.4679167 -1.767549 0.8317153 0.4759391
## 
## $variedad
##                              diff       lwr        upr     p adj
## Hartón-Guineo         -3.09291667 -5.515717 -0.6701167 0.0066209
## 3 Filos-Guineo        -5.15791667 -7.580717 -2.7351167 0.0000017
## Cacho de buey-Guineo  -0.05416667 -2.476967  2.3686333 0.9999271
## 3 Filos-Hartón        -2.06500000 -4.487800  0.3578000 0.1224308
## Cacho de buey-Hartón   3.03875000  0.615950  5.4615500 0.0079144
## Cacho de buey-3 Filos  5.10375000  2.680950  7.5265500 0.0000022
## 
## $micorriza
##                                        diff       lwr       upr     p adj
## Glomus mosseae-Bacillus subtilis -0.2321875 -2.142027  1.677652 0.9546836
## Control-Bacillus subtilis        -3.7834375 -5.693277 -1.873598 0.0000272
## Control-Glomus mosseae           -3.5512500 -5.461089 -1.641411 0.0000818
## 
## $`variedad:micorriza`
##                                                                   diff
## Hartón:Bacillus subtilis-Guineo:Bacillus subtilis             -5.31250
## 3 Filos:Bacillus subtilis-Guineo:Bacillus subtilis            -7.32000
## Cacho de buey:Bacillus subtilis-Guineo:Bacillus subtilis      -3.43000
## Guineo:Glomus mosseae-Guineo:Bacillus subtilis                -1.68750
## Hartón:Glomus mosseae-Guineo:Bacillus subtilis                -5.68750
## 3 Filos:Glomus mosseae-Guineo:Bacillus subtilis               -7.30000
## Cacho de buey:Glomus mosseae-Guineo:Bacillus subtilis         -2.31625
## Guineo:Control-Guineo:Bacillus subtilis                       -8.14625
## Hartón:Control-Guineo:Bacillus subtilis                       -8.11250
## 3 Filos:Control-Guineo:Bacillus subtilis                     -10.68750
## Cacho de buey:Control-Guineo:Bacillus subtilis                -4.25000
## 3 Filos:Bacillus subtilis-Hartón:Bacillus subtilis            -2.00750
## Cacho de buey:Bacillus subtilis-Hartón:Bacillus subtilis       1.88250
## Guineo:Glomus mosseae-Hartón:Bacillus subtilis                 3.62500
## Hartón:Glomus mosseae-Hartón:Bacillus subtilis                -0.37500
## 3 Filos:Glomus mosseae-Hartón:Bacillus subtilis               -1.98750
## Cacho de buey:Glomus mosseae-Hartón:Bacillus subtilis          2.99625
## Guineo:Control-Hartón:Bacillus subtilis                       -2.83375
## Hartón:Control-Hartón:Bacillus subtilis                       -2.80000
## 3 Filos:Control-Hartón:Bacillus subtilis                      -5.37500
## Cacho de buey:Control-Hartón:Bacillus subtilis                 1.06250
## Cacho de buey:Bacillus subtilis-3 Filos:Bacillus subtilis      3.89000
## Guineo:Glomus mosseae-3 Filos:Bacillus subtilis                5.63250
## Hartón:Glomus mosseae-3 Filos:Bacillus subtilis                1.63250
## 3 Filos:Glomus mosseae-3 Filos:Bacillus subtilis               0.02000
## Cacho de buey:Glomus mosseae-3 Filos:Bacillus subtilis         5.00375
## Guineo:Control-3 Filos:Bacillus subtilis                      -0.82625
## Hartón:Control-3 Filos:Bacillus subtilis                      -0.79250
## 3 Filos:Control-3 Filos:Bacillus subtilis                     -3.36750
## Cacho de buey:Control-3 Filos:Bacillus subtilis                3.07000
## Guineo:Glomus mosseae-Cacho de buey:Bacillus subtilis          1.74250
## Hartón:Glomus mosseae-Cacho de buey:Bacillus subtilis         -2.25750
## 3 Filos:Glomus mosseae-Cacho de buey:Bacillus subtilis        -3.87000
## Cacho de buey:Glomus mosseae-Cacho de buey:Bacillus subtilis   1.11375
## Guineo:Control-Cacho de buey:Bacillus subtilis                -4.71625
## Hartón:Control-Cacho de buey:Bacillus subtilis                -4.68250
## 3 Filos:Control-Cacho de buey:Bacillus subtilis               -7.25750
## Cacho de buey:Control-Cacho de buey:Bacillus subtilis         -0.82000
## Hartón:Glomus mosseae-Guineo:Glomus mosseae                   -4.00000
## 3 Filos:Glomus mosseae-Guineo:Glomus mosseae                  -5.61250
## Cacho de buey:Glomus mosseae-Guineo:Glomus mosseae            -0.62875
## Guineo:Control-Guineo:Glomus mosseae                          -6.45875
## Hartón:Control-Guineo:Glomus mosseae                          -6.42500
## 3 Filos:Control-Guineo:Glomus mosseae                         -9.00000
## Cacho de buey:Control-Guineo:Glomus mosseae                   -2.56250
## 3 Filos:Glomus mosseae-Hartón:Glomus mosseae                  -1.61250
## Cacho de buey:Glomus mosseae-Hartón:Glomus mosseae             3.37125
## Guineo:Control-Hartón:Glomus mosseae                          -2.45875
## Hartón:Control-Hartón:Glomus mosseae                          -2.42500
## 3 Filos:Control-Hartón:Glomus mosseae                         -5.00000
## Cacho de buey:Control-Hartón:Glomus mosseae                    1.43750
## Cacho de buey:Glomus mosseae-3 Filos:Glomus mosseae            4.98375
## Guineo:Control-3 Filos:Glomus mosseae                         -0.84625
## Hartón:Control-3 Filos:Glomus mosseae                         -0.81250
## 3 Filos:Control-3 Filos:Glomus mosseae                        -3.38750
## Cacho de buey:Control-3 Filos:Glomus mosseae                   3.05000
## Guineo:Control-Cacho de buey:Glomus mosseae                   -5.83000
## Hartón:Control-Cacho de buey:Glomus mosseae                   -5.79625
## 3 Filos:Control-Cacho de buey:Glomus mosseae                  -8.37125
## Cacho de buey:Control-Cacho de buey:Glomus mosseae            -1.93375
## Hartón:Control-Guineo:Control                                  0.03375
## 3 Filos:Control-Guineo:Control                                -2.54125
## Cacho de buey:Control-Guineo:Control                           3.89625
## 3 Filos:Control-Hartón:Control                                -2.57500
## Cacho de buey:Control-Hartón:Control                           3.86250
## Cacho de buey:Control-3 Filos:Control                          6.43750
##                                                                      lwr
## Hartón:Bacillus subtilis-Guineo:Bacillus subtilis            -10.6953497
## 3 Filos:Bacillus subtilis-Guineo:Bacillus subtilis           -12.7028497
## Cacho de buey:Bacillus subtilis-Guineo:Bacillus subtilis      -8.8128497
## Guineo:Glomus mosseae-Guineo:Bacillus subtilis                -7.0703497
## Hartón:Glomus mosseae-Guineo:Bacillus subtilis               -11.0703497
## 3 Filos:Glomus mosseae-Guineo:Bacillus subtilis              -12.6828497
## Cacho de buey:Glomus mosseae-Guineo:Bacillus subtilis         -7.6990997
## Guineo:Control-Guineo:Bacillus subtilis                      -13.5290997
## Hartón:Control-Guineo:Bacillus subtilis                      -13.4953497
## 3 Filos:Control-Guineo:Bacillus subtilis                     -16.0703497
## Cacho de buey:Control-Guineo:Bacillus subtilis                -9.6328497
## 3 Filos:Bacillus subtilis-Hartón:Bacillus subtilis            -7.3903497
## Cacho de buey:Bacillus subtilis-Hartón:Bacillus subtilis      -3.5003497
## Guineo:Glomus mosseae-Hartón:Bacillus subtilis                -1.7578497
## Hartón:Glomus mosseae-Hartón:Bacillus subtilis                -5.7578497
## 3 Filos:Glomus mosseae-Hartón:Bacillus subtilis               -7.3703497
## Cacho de buey:Glomus mosseae-Hartón:Bacillus subtilis         -2.3865997
## Guineo:Control-Hartón:Bacillus subtilis                       -8.2165997
## Hartón:Control-Hartón:Bacillus subtilis                       -8.1828497
## 3 Filos:Control-Hartón:Bacillus subtilis                     -10.7578497
## Cacho de buey:Control-Hartón:Bacillus subtilis                -4.3203497
## Cacho de buey:Bacillus subtilis-3 Filos:Bacillus subtilis     -1.4928497
## Guineo:Glomus mosseae-3 Filos:Bacillus subtilis                0.2496503
## Hartón:Glomus mosseae-3 Filos:Bacillus subtilis               -3.7503497
## 3 Filos:Glomus mosseae-3 Filos:Bacillus subtilis              -5.3628497
## Cacho de buey:Glomus mosseae-3 Filos:Bacillus subtilis        -0.3790997
## Guineo:Control-3 Filos:Bacillus subtilis                      -6.2090997
## Hartón:Control-3 Filos:Bacillus subtilis                      -6.1753497
## 3 Filos:Control-3 Filos:Bacillus subtilis                     -8.7503497
## Cacho de buey:Control-3 Filos:Bacillus subtilis               -2.3128497
## Guineo:Glomus mosseae-Cacho de buey:Bacillus subtilis         -3.6403497
## Hartón:Glomus mosseae-Cacho de buey:Bacillus subtilis         -7.6403497
## 3 Filos:Glomus mosseae-Cacho de buey:Bacillus subtilis        -9.2528497
## Cacho de buey:Glomus mosseae-Cacho de buey:Bacillus subtilis  -4.2690997
## Guineo:Control-Cacho de buey:Bacillus subtilis               -10.0990997
## Hartón:Control-Cacho de buey:Bacillus subtilis               -10.0653497
## 3 Filos:Control-Cacho de buey:Bacillus subtilis              -12.6403497
## Cacho de buey:Control-Cacho de buey:Bacillus subtilis         -6.2028497
## Hartón:Glomus mosseae-Guineo:Glomus mosseae                   -9.3828497
## 3 Filos:Glomus mosseae-Guineo:Glomus mosseae                 -10.9953497
## Cacho de buey:Glomus mosseae-Guineo:Glomus mosseae            -6.0115997
## Guineo:Control-Guineo:Glomus mosseae                         -11.8415997
## Hartón:Control-Guineo:Glomus mosseae                         -11.8078497
## 3 Filos:Control-Guineo:Glomus mosseae                        -14.3828497
## Cacho de buey:Control-Guineo:Glomus mosseae                   -7.9453497
## 3 Filos:Glomus mosseae-Hartón:Glomus mosseae                  -6.9953497
## Cacho de buey:Glomus mosseae-Hartón:Glomus mosseae            -2.0115997
## Guineo:Control-Hartón:Glomus mosseae                          -7.8415997
## Hartón:Control-Hartón:Glomus mosseae                          -7.8078497
## 3 Filos:Control-Hartón:Glomus mosseae                        -10.3828497
## Cacho de buey:Control-Hartón:Glomus mosseae                   -3.9453497
## Cacho de buey:Glomus mosseae-3 Filos:Glomus mosseae           -0.3990997
## Guineo:Control-3 Filos:Glomus mosseae                         -6.2290997
## Hartón:Control-3 Filos:Glomus mosseae                         -6.1953497
## 3 Filos:Control-3 Filos:Glomus mosseae                        -8.7703497
## Cacho de buey:Control-3 Filos:Glomus mosseae                  -2.3328497
## Guineo:Control-Cacho de buey:Glomus mosseae                  -11.2128497
## Hartón:Control-Cacho de buey:Glomus mosseae                  -11.1790997
## 3 Filos:Control-Cacho de buey:Glomus mosseae                 -13.7540997
## Cacho de buey:Control-Cacho de buey:Glomus mosseae            -7.3165997
## Hartón:Control-Guineo:Control                                 -5.3490997
## 3 Filos:Control-Guineo:Control                                -7.9240997
## Cacho de buey:Control-Guineo:Control                          -1.4865997
## 3 Filos:Control-Hartón:Control                                -7.9578497
## Cacho de buey:Control-Hartón:Control                          -1.5203497
## Cacho de buey:Control-3 Filos:Control                          1.0546503
##                                                                       upr
## Hartón:Bacillus subtilis-Guineo:Bacillus subtilis             0.070349674
## 3 Filos:Bacillus subtilis-Guineo:Bacillus subtilis           -1.937150326
## Cacho de buey:Bacillus subtilis-Guineo:Bacillus subtilis      1.952849674
## Guineo:Glomus mosseae-Guineo:Bacillus subtilis                3.695349674
## Hartón:Glomus mosseae-Guineo:Bacillus subtilis               -0.304650326
## 3 Filos:Glomus mosseae-Guineo:Bacillus subtilis              -1.917150326
## Cacho de buey:Glomus mosseae-Guineo:Bacillus subtilis         3.066599674
## Guineo:Control-Guineo:Bacillus subtilis                      -2.763400326
## Hartón:Control-Guineo:Bacillus subtilis                      -2.729650326
## 3 Filos:Control-Guineo:Bacillus subtilis                     -5.304650326
## Cacho de buey:Control-Guineo:Bacillus subtilis                1.132849674
## 3 Filos:Bacillus subtilis-Hartón:Bacillus subtilis            3.375349674
## Cacho de buey:Bacillus subtilis-Hartón:Bacillus subtilis      7.265349674
## Guineo:Glomus mosseae-Hartón:Bacillus subtilis                9.007849674
## Hartón:Glomus mosseae-Hartón:Bacillus subtilis                5.007849674
## 3 Filos:Glomus mosseae-Hartón:Bacillus subtilis               3.395349674
## Cacho de buey:Glomus mosseae-Hartón:Bacillus subtilis         8.379099674
## Guineo:Control-Hartón:Bacillus subtilis                       2.549099674
## Hartón:Control-Hartón:Bacillus subtilis                       2.582849674
## 3 Filos:Control-Hartón:Bacillus subtilis                      0.007849674
## Cacho de buey:Control-Hartón:Bacillus subtilis                6.445349674
## Cacho de buey:Bacillus subtilis-3 Filos:Bacillus subtilis     9.272849674
## Guineo:Glomus mosseae-3 Filos:Bacillus subtilis              11.015349674
## Hartón:Glomus mosseae-3 Filos:Bacillus subtilis               7.015349674
## 3 Filos:Glomus mosseae-3 Filos:Bacillus subtilis              5.402849674
## Cacho de buey:Glomus mosseae-3 Filos:Bacillus subtilis       10.386599674
## Guineo:Control-3 Filos:Bacillus subtilis                      4.556599674
## Hartón:Control-3 Filos:Bacillus subtilis                      4.590349674
## 3 Filos:Control-3 Filos:Bacillus subtilis                     2.015349674
## Cacho de buey:Control-3 Filos:Bacillus subtilis               8.452849674
## Guineo:Glomus mosseae-Cacho de buey:Bacillus subtilis         7.125349674
## Hartón:Glomus mosseae-Cacho de buey:Bacillus subtilis         3.125349674
## 3 Filos:Glomus mosseae-Cacho de buey:Bacillus subtilis        1.512849674
## Cacho de buey:Glomus mosseae-Cacho de buey:Bacillus subtilis  6.496599674
## Guineo:Control-Cacho de buey:Bacillus subtilis                0.666599674
## Hartón:Control-Cacho de buey:Bacillus subtilis                0.700349674
## 3 Filos:Control-Cacho de buey:Bacillus subtilis              -1.874650326
## Cacho de buey:Control-Cacho de buey:Bacillus subtilis         4.562849674
## Hartón:Glomus mosseae-Guineo:Glomus mosseae                   1.382849674
## 3 Filos:Glomus mosseae-Guineo:Glomus mosseae                 -0.229650326
## Cacho de buey:Glomus mosseae-Guineo:Glomus mosseae            4.754099674
## Guineo:Control-Guineo:Glomus mosseae                         -1.075900326
## Hartón:Control-Guineo:Glomus mosseae                         -1.042150326
## 3 Filos:Control-Guineo:Glomus mosseae                        -3.617150326
## Cacho de buey:Control-Guineo:Glomus mosseae                   2.820349674
## 3 Filos:Glomus mosseae-Hartón:Glomus mosseae                  3.770349674
## Cacho de buey:Glomus mosseae-Hartón:Glomus mosseae            8.754099674
## Guineo:Control-Hartón:Glomus mosseae                          2.924099674
## Hartón:Control-Hartón:Glomus mosseae                          2.957849674
## 3 Filos:Control-Hartón:Glomus mosseae                         0.382849674
## Cacho de buey:Control-Hartón:Glomus mosseae                   6.820349674
## Cacho de buey:Glomus mosseae-3 Filos:Glomus mosseae          10.366599674
## Guineo:Control-3 Filos:Glomus mosseae                         4.536599674
## Hartón:Control-3 Filos:Glomus mosseae                         4.570349674
## 3 Filos:Control-3 Filos:Glomus mosseae                        1.995349674
## Cacho de buey:Control-3 Filos:Glomus mosseae                  8.432849674
## Guineo:Control-Cacho de buey:Glomus mosseae                  -0.447150326
## Hartón:Control-Cacho de buey:Glomus mosseae                  -0.413400326
## 3 Filos:Control-Cacho de buey:Glomus mosseae                 -2.988400326
## Cacho de buey:Control-Cacho de buey:Glomus mosseae            3.449099674
## Hartón:Control-Guineo:Control                                 5.416599674
## 3 Filos:Control-Guineo:Control                                2.841599674
## Cacho de buey:Control-Guineo:Control                          9.279099674
## 3 Filos:Control-Hartón:Control                                2.807849674
## Cacho de buey:Control-Hartón:Control                          9.245349674
## Cacho de buey:Control-3 Filos:Control                        11.820349674
##                                                                  p adj
## Hartón:Bacillus subtilis-Guineo:Bacillus subtilis            0.0564030
## 3 Filos:Bacillus subtilis-Guineo:Bacillus subtilis           0.0009599
## Cacho de buey:Bacillus subtilis-Guineo:Bacillus subtilis     0.5942642
## Guineo:Glomus mosseae-Guineo:Bacillus subtilis               0.9957486
## Hartón:Glomus mosseae-Guineo:Bacillus subtilis               0.0290338
## 3 Filos:Glomus mosseae-Guineo:Bacillus subtilis              0.0010050
## Cacho de buey:Glomus mosseae-Guineo:Bacillus subtilis        0.9501030
## Guineo:Control-Guineo:Bacillus subtilis                      0.0001339
## Hartón:Control-Guineo:Bacillus subtilis                      0.0001455
## 3 Filos:Control-Guineo:Bacillus subtilis                     0.0000002
## Cacho de buey:Control-Guineo:Bacillus subtilis               0.2672918
## 3 Filos:Bacillus subtilis-Hartón:Bacillus subtilis           0.9824309
## Cacho de buey:Bacillus subtilis-Hartón:Bacillus subtilis     0.9894262
## Guineo:Glomus mosseae-Hartón:Bacillus subtilis               0.5091880
## Hartón:Glomus mosseae-Hartón:Bacillus subtilis               1.0000000
## 3 Filos:Glomus mosseae-Hartón:Bacillus subtilis              0.9837429
## Cacho de buey:Glomus mosseae-Hartón:Bacillus subtilis        0.7725600
## Guineo:Control-Hartón:Bacillus subtilis                      0.8288647
## Hartón:Control-Hartón:Bacillus subtilis                      0.8395503
## 3 Filos:Control-Hartón:Bacillus subtilis                     0.0506817
## Cacho de buey:Control-Hartón:Bacillus subtilis               0.9999443
## Cacho de buey:Bacillus subtilis-3 Filos:Bacillus subtilis    0.3981208
## Guineo:Glomus mosseae-3 Filos:Bacillus subtilis              0.0321086
## Hartón:Glomus mosseae-3 Filos:Bacillus subtilis              0.9968084
## 3 Filos:Glomus mosseae-3 Filos:Bacillus subtilis             1.0000000
## Cacho de buey:Glomus mosseae-3 Filos:Bacillus subtilis       0.0934610
## Guineo:Control-3 Filos:Bacillus subtilis                     0.9999957
## Hartón:Control-3 Filos:Bacillus subtilis                     0.9999972
## 3 Filos:Control-3 Filos:Bacillus subtilis                    0.6214310
## Cacho de buey:Control-3 Filos:Bacillus subtilis              0.7446313
## Guineo:Glomus mosseae-Cacho de buey:Bacillus subtilis        0.9944140
## Hartón:Glomus mosseae-Cacho de buey:Bacillus subtilis        0.9582385
## 3 Filos:Glomus mosseae-Cacho de buey:Bacillus subtilis       0.4061625
## Cacho de buey:Glomus mosseae-Cacho de buey:Bacillus subtilis 0.9999111
## Guineo:Control-Cacho de buey:Bacillus subtilis               0.1441062
## Hartón:Control-Cacho de buey:Bacillus subtilis               0.1512417
## 3 Filos:Control-Cacho de buey:Bacillus subtilis              0.0011078
## Cacho de buey:Control-Cacho de buey:Bacillus subtilis        0.9999960
## Hartón:Glomus mosseae-Guineo:Glomus mosseae                  0.3552010
## 3 Filos:Glomus mosseae-Guineo:Glomus mosseae                 0.0332967
## Cacho de buey:Glomus mosseae-Guineo:Glomus mosseae           0.9999998
## Guineo:Control-Guineo:Glomus mosseae                         0.0063678
## Hartón:Control-Guineo:Glomus mosseae                         0.0068310
## 3 Filos:Control-Guineo:Glomus mosseae                        0.0000155
## Cacho de buey:Control-Guineo:Glomus mosseae                  0.9038810
## 3 Filos:Glomus mosseae-Hartón:Glomus mosseae                 0.9971346
## Cacho de buey:Glomus mosseae-Hartón:Glomus mosseae           0.6198074
## Guineo:Control-Hartón:Glomus mosseae                         0.9258416
## Hartón:Control-Hartón:Glomus mosseae                         0.9321911
## 3 Filos:Control-Hartón:Glomus mosseae                        0.0940127
## Cacho de buey:Control-Hartón:Glomus mosseae                  0.9989798
## Cacho de buey:Glomus mosseae-3 Filos:Glomus mosseae          0.0964347
## Guineo:Control-3 Filos:Glomus mosseae                        0.9999945
## Hartón:Control-3 Filos:Glomus mosseae                        0.9999964
## 3 Filos:Control-3 Filos:Glomus mosseae                       0.6127613
## Cacho de buey:Control-3 Filos:Glomus mosseae                 0.7523359
## Guineo:Control-Cacho de buey:Glomus mosseae                  0.0222579
## Hartón:Control-Cacho de buey:Glomus mosseae                  0.0237190
## 3 Filos:Control-Cacho de buey:Glomus mosseae                 0.0000767
## Cacho de buey:Control-Cacho de buey:Glomus mosseae           0.9868922
## Hartón:Control-Guineo:Control                                1.0000000
## 3 Filos:Control-Guineo:Control                               0.9086827
## Cacho de buey:Control-Guineo:Control                         0.3956220
## 3 Filos:Control-Hartón:Control                               0.9009829
## Cacho de buey:Control-Hartón:Control                         0.4091955
## Cacho de buey:Control-3 Filos:Control                        0.0066559

4 Conclusiones

4.1 Interaccion

plot(datos$variedad, datos$kg_racimo)