library(ggplot2)
set.seed(2025)
ar_foliar = rnorm(n = 120,
                  mean = 26.5,
                  sd =0.27)
ar_foliar
##   [1] 26.66760 26.50962 26.70875 26.84357 26.60016 26.45603 26.60722 26.47840
##   [9] 26.40686 26.68958 26.39316 26.02614 26.38634 26.70653 26.78786 26.44770
##  [17] 26.48592 26.61277 26.14557 27.15584 26.43397 26.69812 27.27025 26.68131
##  [25] 26.46872 26.14863 26.25219 26.51369 26.39736 26.69511 26.22305 26.99137
##  [33] 26.15699 26.65898 26.32875 26.15823 26.57661 26.09992 26.74621 26.76230
##  [41] 26.84374 26.89481 26.33501 26.40265 26.08713 26.80598 26.38100 26.53499
##  [49] 26.73523 26.63649 26.60014 26.16844 26.45621 26.79378 26.59698 26.78814
##  [57] 26.66966 26.27547 26.31306 26.48791 26.66053 26.67256 26.62944 26.87073
##  [65] 26.19013 25.83831 26.25631 26.39269 26.96355 26.38910 26.47522 26.29844
##  [73] 26.27814 25.87440 26.35546 26.76929 26.35279 26.90761 26.29916 26.31979
##  [81] 26.19736 26.89691 26.55542 26.21346 26.49974 26.49340 26.85213 26.23214
##  [89] 26.21688 26.77233 26.66911 26.25570 26.96334 26.52436 26.38509 26.21578
##  [97] 26.00397 26.09598 26.27805 26.55851 26.68641 26.43122 26.78144 26.56399
## [105] 26.14165 26.47938 26.15941 26.90518 26.59080 26.83053 26.17650 26.38320
## [113] 26.41573 25.98583 26.46232 26.81364 26.09618 26.48739 26.44048 26.40730
hist(x = ar_foliar)

#Factor

IG = gl(n = 2,
        k = 60,
        length = 120, labels = c("con inhibidor", "sin inhibidor"))

#Bloqueo

hum = gl(n = 2,
             k = 1,
             length = 120,
             labels=c("con hinhibidor","sin hinhibidor"))

#Agregamos los datos en una tabla

tb = data.frame(ar_foliar, IG, hum)
tb
##     ar_foliar            IG            hum
## 1    26.66760 con inhibidor con hinhibidor
## 2    26.50962 con inhibidor sin hinhibidor
## 3    26.70875 con inhibidor con hinhibidor
## 4    26.84357 con inhibidor sin hinhibidor
## 5    26.60016 con inhibidor con hinhibidor
## 6    26.45603 con inhibidor sin hinhibidor
## 7    26.60722 con inhibidor con hinhibidor
## 8    26.47840 con inhibidor sin hinhibidor
## 9    26.40686 con inhibidor con hinhibidor
## 10   26.68958 con inhibidor sin hinhibidor
## 11   26.39316 con inhibidor con hinhibidor
## 12   26.02614 con inhibidor sin hinhibidor
## 13   26.38634 con inhibidor con hinhibidor
## 14   26.70653 con inhibidor sin hinhibidor
## 15   26.78786 con inhibidor con hinhibidor
## 16   26.44770 con inhibidor sin hinhibidor
## 17   26.48592 con inhibidor con hinhibidor
## 18   26.61277 con inhibidor sin hinhibidor
## 19   26.14557 con inhibidor con hinhibidor
## 20   27.15584 con inhibidor sin hinhibidor
## 21   26.43397 con inhibidor con hinhibidor
## 22   26.69812 con inhibidor sin hinhibidor
## 23   27.27025 con inhibidor con hinhibidor
## 24   26.68131 con inhibidor sin hinhibidor
## 25   26.46872 con inhibidor con hinhibidor
## 26   26.14863 con inhibidor sin hinhibidor
## 27   26.25219 con inhibidor con hinhibidor
## 28   26.51369 con inhibidor sin hinhibidor
## 29   26.39736 con inhibidor con hinhibidor
## 30   26.69511 con inhibidor sin hinhibidor
## 31   26.22305 con inhibidor con hinhibidor
## 32   26.99137 con inhibidor sin hinhibidor
## 33   26.15699 con inhibidor con hinhibidor
## 34   26.65898 con inhibidor sin hinhibidor
## 35   26.32875 con inhibidor con hinhibidor
## 36   26.15823 con inhibidor sin hinhibidor
## 37   26.57661 con inhibidor con hinhibidor
## 38   26.09992 con inhibidor sin hinhibidor
## 39   26.74621 con inhibidor con hinhibidor
## 40   26.76230 con inhibidor sin hinhibidor
## 41   26.84374 con inhibidor con hinhibidor
## 42   26.89481 con inhibidor sin hinhibidor
## 43   26.33501 con inhibidor con hinhibidor
## 44   26.40265 con inhibidor sin hinhibidor
## 45   26.08713 con inhibidor con hinhibidor
## 46   26.80598 con inhibidor sin hinhibidor
## 47   26.38100 con inhibidor con hinhibidor
## 48   26.53499 con inhibidor sin hinhibidor
## 49   26.73523 con inhibidor con hinhibidor
## 50   26.63649 con inhibidor sin hinhibidor
## 51   26.60014 con inhibidor con hinhibidor
## 52   26.16844 con inhibidor sin hinhibidor
## 53   26.45621 con inhibidor con hinhibidor
## 54   26.79378 con inhibidor sin hinhibidor
## 55   26.59698 con inhibidor con hinhibidor
## 56   26.78814 con inhibidor sin hinhibidor
## 57   26.66966 con inhibidor con hinhibidor
## 58   26.27547 con inhibidor sin hinhibidor
## 59   26.31306 con inhibidor con hinhibidor
## 60   26.48791 con inhibidor sin hinhibidor
## 61   26.66053 sin inhibidor con hinhibidor
## 62   26.67256 sin inhibidor sin hinhibidor
## 63   26.62944 sin inhibidor con hinhibidor
## 64   26.87073 sin inhibidor sin hinhibidor
## 65   26.19013 sin inhibidor con hinhibidor
## 66   25.83831 sin inhibidor sin hinhibidor
## 67   26.25631 sin inhibidor con hinhibidor
## 68   26.39269 sin inhibidor sin hinhibidor
## 69   26.96355 sin inhibidor con hinhibidor
## 70   26.38910 sin inhibidor sin hinhibidor
## 71   26.47522 sin inhibidor con hinhibidor
## 72   26.29844 sin inhibidor sin hinhibidor
## 73   26.27814 sin inhibidor con hinhibidor
## 74   25.87440 sin inhibidor sin hinhibidor
## 75   26.35546 sin inhibidor con hinhibidor
## 76   26.76929 sin inhibidor sin hinhibidor
## 77   26.35279 sin inhibidor con hinhibidor
## 78   26.90761 sin inhibidor sin hinhibidor
## 79   26.29916 sin inhibidor con hinhibidor
## 80   26.31979 sin inhibidor sin hinhibidor
## 81   26.19736 sin inhibidor con hinhibidor
## 82   26.89691 sin inhibidor sin hinhibidor
## 83   26.55542 sin inhibidor con hinhibidor
## 84   26.21346 sin inhibidor sin hinhibidor
## 85   26.49974 sin inhibidor con hinhibidor
## 86   26.49340 sin inhibidor sin hinhibidor
## 87   26.85213 sin inhibidor con hinhibidor
## 88   26.23214 sin inhibidor sin hinhibidor
## 89   26.21688 sin inhibidor con hinhibidor
## 90   26.77233 sin inhibidor sin hinhibidor
## 91   26.66911 sin inhibidor con hinhibidor
## 92   26.25570 sin inhibidor sin hinhibidor
## 93   26.96334 sin inhibidor con hinhibidor
## 94   26.52436 sin inhibidor sin hinhibidor
## 95   26.38509 sin inhibidor con hinhibidor
## 96   26.21578 sin inhibidor sin hinhibidor
## 97   26.00397 sin inhibidor con hinhibidor
## 98   26.09598 sin inhibidor sin hinhibidor
## 99   26.27805 sin inhibidor con hinhibidor
## 100  26.55851 sin inhibidor sin hinhibidor
## 101  26.68641 sin inhibidor con hinhibidor
## 102  26.43122 sin inhibidor sin hinhibidor
## 103  26.78144 sin inhibidor con hinhibidor
## 104  26.56399 sin inhibidor sin hinhibidor
## 105  26.14165 sin inhibidor con hinhibidor
## 106  26.47938 sin inhibidor sin hinhibidor
## 107  26.15941 sin inhibidor con hinhibidor
## 108  26.90518 sin inhibidor sin hinhibidor
## 109  26.59080 sin inhibidor con hinhibidor
## 110  26.83053 sin inhibidor sin hinhibidor
## 111  26.17650 sin inhibidor con hinhibidor
## 112  26.38320 sin inhibidor sin hinhibidor
## 113  26.41573 sin inhibidor con hinhibidor
## 114  25.98583 sin inhibidor sin hinhibidor
## 115  26.46232 sin inhibidor con hinhibidor
## 116  26.81364 sin inhibidor sin hinhibidor
## 117  26.09618 sin inhibidor con hinhibidor
## 118  26.48739 sin inhibidor sin hinhibidor
## 119  26.44048 sin inhibidor con hinhibidor
## 120  26.40730 sin inhibidor sin hinhibidor

#Analisis Descriptivos

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
tb %>%
  group_by(IG) %>%
  summarise(median = mean(ar_foliar),
            desv_std = sd(ar_foliar),
            varianza =var(ar_foliar))
## # A tibble: 2 × 4
##   IG            median desv_std varianza
##   <fct>          <dbl>    <dbl>    <dbl>
## 1 con inhibidor   26.5    0.261   0.0680
## 2 sin inhibidor   26.4    0.279   0.0776

#Grafica

ggplot(data = tb, aes(x = IG, y = ar_foliar, fill = IG))+
  geom_boxplot()+
  facet_wrap(~hum)

#Analisis inferencial #Hipotesis \[ H_0 = \mu_\text{sin_Gibe} = \mu_\text{con_Gibe} \\ H_a = \text{por lo menos una ->} \mu_\text{sin_Gibe} \neq \mu_\text{con_Gibe} \]

#Analisis de varianza

tb
##     ar_foliar            IG            hum
## 1    26.66760 con inhibidor con hinhibidor
## 2    26.50962 con inhibidor sin hinhibidor
## 3    26.70875 con inhibidor con hinhibidor
## 4    26.84357 con inhibidor sin hinhibidor
## 5    26.60016 con inhibidor con hinhibidor
## 6    26.45603 con inhibidor sin hinhibidor
## 7    26.60722 con inhibidor con hinhibidor
## 8    26.47840 con inhibidor sin hinhibidor
## 9    26.40686 con inhibidor con hinhibidor
## 10   26.68958 con inhibidor sin hinhibidor
## 11   26.39316 con inhibidor con hinhibidor
## 12   26.02614 con inhibidor sin hinhibidor
## 13   26.38634 con inhibidor con hinhibidor
## 14   26.70653 con inhibidor sin hinhibidor
## 15   26.78786 con inhibidor con hinhibidor
## 16   26.44770 con inhibidor sin hinhibidor
## 17   26.48592 con inhibidor con hinhibidor
## 18   26.61277 con inhibidor sin hinhibidor
## 19   26.14557 con inhibidor con hinhibidor
## 20   27.15584 con inhibidor sin hinhibidor
## 21   26.43397 con inhibidor con hinhibidor
## 22   26.69812 con inhibidor sin hinhibidor
## 23   27.27025 con inhibidor con hinhibidor
## 24   26.68131 con inhibidor sin hinhibidor
## 25   26.46872 con inhibidor con hinhibidor
## 26   26.14863 con inhibidor sin hinhibidor
## 27   26.25219 con inhibidor con hinhibidor
## 28   26.51369 con inhibidor sin hinhibidor
## 29   26.39736 con inhibidor con hinhibidor
## 30   26.69511 con inhibidor sin hinhibidor
## 31   26.22305 con inhibidor con hinhibidor
## 32   26.99137 con inhibidor sin hinhibidor
## 33   26.15699 con inhibidor con hinhibidor
## 34   26.65898 con inhibidor sin hinhibidor
## 35   26.32875 con inhibidor con hinhibidor
## 36   26.15823 con inhibidor sin hinhibidor
## 37   26.57661 con inhibidor con hinhibidor
## 38   26.09992 con inhibidor sin hinhibidor
## 39   26.74621 con inhibidor con hinhibidor
## 40   26.76230 con inhibidor sin hinhibidor
## 41   26.84374 con inhibidor con hinhibidor
## 42   26.89481 con inhibidor sin hinhibidor
## 43   26.33501 con inhibidor con hinhibidor
## 44   26.40265 con inhibidor sin hinhibidor
## 45   26.08713 con inhibidor con hinhibidor
## 46   26.80598 con inhibidor sin hinhibidor
## 47   26.38100 con inhibidor con hinhibidor
## 48   26.53499 con inhibidor sin hinhibidor
## 49   26.73523 con inhibidor con hinhibidor
## 50   26.63649 con inhibidor sin hinhibidor
## 51   26.60014 con inhibidor con hinhibidor
## 52   26.16844 con inhibidor sin hinhibidor
## 53   26.45621 con inhibidor con hinhibidor
## 54   26.79378 con inhibidor sin hinhibidor
## 55   26.59698 con inhibidor con hinhibidor
## 56   26.78814 con inhibidor sin hinhibidor
## 57   26.66966 con inhibidor con hinhibidor
## 58   26.27547 con inhibidor sin hinhibidor
## 59   26.31306 con inhibidor con hinhibidor
## 60   26.48791 con inhibidor sin hinhibidor
## 61   26.66053 sin inhibidor con hinhibidor
## 62   26.67256 sin inhibidor sin hinhibidor
## 63   26.62944 sin inhibidor con hinhibidor
## 64   26.87073 sin inhibidor sin hinhibidor
## 65   26.19013 sin inhibidor con hinhibidor
## 66   25.83831 sin inhibidor sin hinhibidor
## 67   26.25631 sin inhibidor con hinhibidor
## 68   26.39269 sin inhibidor sin hinhibidor
## 69   26.96355 sin inhibidor con hinhibidor
## 70   26.38910 sin inhibidor sin hinhibidor
## 71   26.47522 sin inhibidor con hinhibidor
## 72   26.29844 sin inhibidor sin hinhibidor
## 73   26.27814 sin inhibidor con hinhibidor
## 74   25.87440 sin inhibidor sin hinhibidor
## 75   26.35546 sin inhibidor con hinhibidor
## 76   26.76929 sin inhibidor sin hinhibidor
## 77   26.35279 sin inhibidor con hinhibidor
## 78   26.90761 sin inhibidor sin hinhibidor
## 79   26.29916 sin inhibidor con hinhibidor
## 80   26.31979 sin inhibidor sin hinhibidor
## 81   26.19736 sin inhibidor con hinhibidor
## 82   26.89691 sin inhibidor sin hinhibidor
## 83   26.55542 sin inhibidor con hinhibidor
## 84   26.21346 sin inhibidor sin hinhibidor
## 85   26.49974 sin inhibidor con hinhibidor
## 86   26.49340 sin inhibidor sin hinhibidor
## 87   26.85213 sin inhibidor con hinhibidor
## 88   26.23214 sin inhibidor sin hinhibidor
## 89   26.21688 sin inhibidor con hinhibidor
## 90   26.77233 sin inhibidor sin hinhibidor
## 91   26.66911 sin inhibidor con hinhibidor
## 92   26.25570 sin inhibidor sin hinhibidor
## 93   26.96334 sin inhibidor con hinhibidor
## 94   26.52436 sin inhibidor sin hinhibidor
## 95   26.38509 sin inhibidor con hinhibidor
## 96   26.21578 sin inhibidor sin hinhibidor
## 97   26.00397 sin inhibidor con hinhibidor
## 98   26.09598 sin inhibidor sin hinhibidor
## 99   26.27805 sin inhibidor con hinhibidor
## 100  26.55851 sin inhibidor sin hinhibidor
## 101  26.68641 sin inhibidor con hinhibidor
## 102  26.43122 sin inhibidor sin hinhibidor
## 103  26.78144 sin inhibidor con hinhibidor
## 104  26.56399 sin inhibidor sin hinhibidor
## 105  26.14165 sin inhibidor con hinhibidor
## 106  26.47938 sin inhibidor sin hinhibidor
## 107  26.15941 sin inhibidor con hinhibidor
## 108  26.90518 sin inhibidor sin hinhibidor
## 109  26.59080 sin inhibidor con hinhibidor
## 110  26.83053 sin inhibidor sin hinhibidor
## 111  26.17650 sin inhibidor con hinhibidor
## 112  26.38320 sin inhibidor sin hinhibidor
## 113  26.41573 sin inhibidor con hinhibidor
## 114  25.98583 sin inhibidor sin hinhibidor
## 115  26.46232 sin inhibidor con hinhibidor
## 116  26.81364 sin inhibidor sin hinhibidor
## 117  26.09618 sin inhibidor con hinhibidor
## 118  26.48739 sin inhibidor sin hinhibidor
## 119  26.44048 sin inhibidor con hinhibidor
## 120  26.40730 sin inhibidor sin hinhibidor
mod = aov(ar_foliar ~ hum + IG, data = tb)
summary(mod)
##              Df Sum Sq Mean Sq F value Pr(>F)  
## hum           1  0.070 0.07043   0.968  0.327  
## IG            1  0.232 0.23164   3.182  0.077 .
## Residuals   117  8.517 0.07279                 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

El p valor muestra la variabilidad de los datos en estudios, tener en cuenta si la comparacion esta entre tartamientos y no repeticiones, entre mas grande el numero mejor

#Analisis de varianza

tb
##     ar_foliar            IG            hum
## 1    26.66760 con inhibidor con hinhibidor
## 2    26.50962 con inhibidor sin hinhibidor
## 3    26.70875 con inhibidor con hinhibidor
## 4    26.84357 con inhibidor sin hinhibidor
## 5    26.60016 con inhibidor con hinhibidor
## 6    26.45603 con inhibidor sin hinhibidor
## 7    26.60722 con inhibidor con hinhibidor
## 8    26.47840 con inhibidor sin hinhibidor
## 9    26.40686 con inhibidor con hinhibidor
## 10   26.68958 con inhibidor sin hinhibidor
## 11   26.39316 con inhibidor con hinhibidor
## 12   26.02614 con inhibidor sin hinhibidor
## 13   26.38634 con inhibidor con hinhibidor
## 14   26.70653 con inhibidor sin hinhibidor
## 15   26.78786 con inhibidor con hinhibidor
## 16   26.44770 con inhibidor sin hinhibidor
## 17   26.48592 con inhibidor con hinhibidor
## 18   26.61277 con inhibidor sin hinhibidor
## 19   26.14557 con inhibidor con hinhibidor
## 20   27.15584 con inhibidor sin hinhibidor
## 21   26.43397 con inhibidor con hinhibidor
## 22   26.69812 con inhibidor sin hinhibidor
## 23   27.27025 con inhibidor con hinhibidor
## 24   26.68131 con inhibidor sin hinhibidor
## 25   26.46872 con inhibidor con hinhibidor
## 26   26.14863 con inhibidor sin hinhibidor
## 27   26.25219 con inhibidor con hinhibidor
## 28   26.51369 con inhibidor sin hinhibidor
## 29   26.39736 con inhibidor con hinhibidor
## 30   26.69511 con inhibidor sin hinhibidor
## 31   26.22305 con inhibidor con hinhibidor
## 32   26.99137 con inhibidor sin hinhibidor
## 33   26.15699 con inhibidor con hinhibidor
## 34   26.65898 con inhibidor sin hinhibidor
## 35   26.32875 con inhibidor con hinhibidor
## 36   26.15823 con inhibidor sin hinhibidor
## 37   26.57661 con inhibidor con hinhibidor
## 38   26.09992 con inhibidor sin hinhibidor
## 39   26.74621 con inhibidor con hinhibidor
## 40   26.76230 con inhibidor sin hinhibidor
## 41   26.84374 con inhibidor con hinhibidor
## 42   26.89481 con inhibidor sin hinhibidor
## 43   26.33501 con inhibidor con hinhibidor
## 44   26.40265 con inhibidor sin hinhibidor
## 45   26.08713 con inhibidor con hinhibidor
## 46   26.80598 con inhibidor sin hinhibidor
## 47   26.38100 con inhibidor con hinhibidor
## 48   26.53499 con inhibidor sin hinhibidor
## 49   26.73523 con inhibidor con hinhibidor
## 50   26.63649 con inhibidor sin hinhibidor
## 51   26.60014 con inhibidor con hinhibidor
## 52   26.16844 con inhibidor sin hinhibidor
## 53   26.45621 con inhibidor con hinhibidor
## 54   26.79378 con inhibidor sin hinhibidor
## 55   26.59698 con inhibidor con hinhibidor
## 56   26.78814 con inhibidor sin hinhibidor
## 57   26.66966 con inhibidor con hinhibidor
## 58   26.27547 con inhibidor sin hinhibidor
## 59   26.31306 con inhibidor con hinhibidor
## 60   26.48791 con inhibidor sin hinhibidor
## 61   26.66053 sin inhibidor con hinhibidor
## 62   26.67256 sin inhibidor sin hinhibidor
## 63   26.62944 sin inhibidor con hinhibidor
## 64   26.87073 sin inhibidor sin hinhibidor
## 65   26.19013 sin inhibidor con hinhibidor
## 66   25.83831 sin inhibidor sin hinhibidor
## 67   26.25631 sin inhibidor con hinhibidor
## 68   26.39269 sin inhibidor sin hinhibidor
## 69   26.96355 sin inhibidor con hinhibidor
## 70   26.38910 sin inhibidor sin hinhibidor
## 71   26.47522 sin inhibidor con hinhibidor
## 72   26.29844 sin inhibidor sin hinhibidor
## 73   26.27814 sin inhibidor con hinhibidor
## 74   25.87440 sin inhibidor sin hinhibidor
## 75   26.35546 sin inhibidor con hinhibidor
## 76   26.76929 sin inhibidor sin hinhibidor
## 77   26.35279 sin inhibidor con hinhibidor
## 78   26.90761 sin inhibidor sin hinhibidor
## 79   26.29916 sin inhibidor con hinhibidor
## 80   26.31979 sin inhibidor sin hinhibidor
## 81   26.19736 sin inhibidor con hinhibidor
## 82   26.89691 sin inhibidor sin hinhibidor
## 83   26.55542 sin inhibidor con hinhibidor
## 84   26.21346 sin inhibidor sin hinhibidor
## 85   26.49974 sin inhibidor con hinhibidor
## 86   26.49340 sin inhibidor sin hinhibidor
## 87   26.85213 sin inhibidor con hinhibidor
## 88   26.23214 sin inhibidor sin hinhibidor
## 89   26.21688 sin inhibidor con hinhibidor
## 90   26.77233 sin inhibidor sin hinhibidor
## 91   26.66911 sin inhibidor con hinhibidor
## 92   26.25570 sin inhibidor sin hinhibidor
## 93   26.96334 sin inhibidor con hinhibidor
## 94   26.52436 sin inhibidor sin hinhibidor
## 95   26.38509 sin inhibidor con hinhibidor
## 96   26.21578 sin inhibidor sin hinhibidor
## 97   26.00397 sin inhibidor con hinhibidor
## 98   26.09598 sin inhibidor sin hinhibidor
## 99   26.27805 sin inhibidor con hinhibidor
## 100  26.55851 sin inhibidor sin hinhibidor
## 101  26.68641 sin inhibidor con hinhibidor
## 102  26.43122 sin inhibidor sin hinhibidor
## 103  26.78144 sin inhibidor con hinhibidor
## 104  26.56399 sin inhibidor sin hinhibidor
## 105  26.14165 sin inhibidor con hinhibidor
## 106  26.47938 sin inhibidor sin hinhibidor
## 107  26.15941 sin inhibidor con hinhibidor
## 108  26.90518 sin inhibidor sin hinhibidor
## 109  26.59080 sin inhibidor con hinhibidor
## 110  26.83053 sin inhibidor sin hinhibidor
## 111  26.17650 sin inhibidor con hinhibidor
## 112  26.38320 sin inhibidor sin hinhibidor
## 113  26.41573 sin inhibidor con hinhibidor
## 114  25.98583 sin inhibidor sin hinhibidor
## 115  26.46232 sin inhibidor con hinhibidor
## 116  26.81364 sin inhibidor sin hinhibidor
## 117  26.09618 sin inhibidor con hinhibidor
## 118  26.48739 sin inhibidor sin hinhibidor
## 119  26.44048 sin inhibidor con hinhibidor
## 120  26.40730 sin inhibidor sin hinhibidor
mod = aov(ar_foliar ~ hum + IG, data = tb)
mod1 = unlist(summary(mod))
ifelse(mod1[11]>0.05, "No Rechaza la H0", "Rechaza la H0")
##           F value2 
## "No Rechaza la H0"

#Prueba de Normalidad

shapiro.test(mod$residuals)
## 
##  Shapiro-Wilk normality test
## 
## data:  mod$residuals
## W = 0.99624, p-value = 0.9886

#Homoceasticidad

bartlett.test(mod$residuals, IG)
## 
##  Bartlett test of homogeneity of variances
## 
## data:  mod$residuals and IG
## Bartlett's K-squared = 0.31581, df = 1, p-value = 0.5741