library(readxl)
## Warning: package 'readxl' was built under R version 4.4.2
data_fumigasi <- read_xlsx("C:/Users/USER/Downloads/data kuis essay.xlsx")
data_fumigasi 
## # A tibble: 30 × 4
##    Fumigasi dosis ulangan respon
##       <dbl> <dbl>   <dbl>  <dbl>
##  1        1     0       1     96
##  2        1     0       2     97
##  3        1     0       3     95
##  4        1    10       1     94
##  5        1    10       2     93
##  6        1    10       3     92
##  7        1    20       1     92
##  8        1    20       2     91
##  9        1    20       3     90
## 10        1    30       1     90
## # ℹ 20 more rows
data_fumigasi$Fumigasi <- as.factor(data_fumigasi$Fumigasi)
data_fumigasi$dosis <- as.factor(data_fumigasi$dosis)
model <- aov(respon ~ Fumigasi * dosis, data = data_fumigasi)
summary(model)
##                Df Sum Sq Mean Sq F value   Pr(>F)    
## Fumigasi        1  73.63   73.63  64.971 1.04e-07 ***
## dosis           4 274.13   68.53  60.471 6.91e-11 ***
## Fumigasi:dosis  4   0.53    0.13   0.118    0.975    
## Residuals      20  22.67    1.13                     
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

untuk fumigasi tolak H0, terdapat cukup bukti untuk menyatakan ada hubungan fumigasi terhadap respon

untuk dosis tolak H0, terdapat cukup bukti untuk menyatakan ada hubungan dosis terhadap respon

untuk fumigasi x dosis tak tolak H0, belum cukup bukti untuk menyatakan ada hubungan fumigasi dan dosis terhadap respon

contrasts(data_fumigasi$dosis) <- contr.poly(5)
AnovaFakRAL2 <- aov(respon ~ Fumigasi + dosis + Fumigasi:dosis, data = data_fumigasi)
summary.aov(AnovaFakRAL2, split = list(dosis = list("Linear" = 1, 
                                                       "Kuadratik" = 2, 
                                                       "Kubik" = 3, 
                                                       "Kuartik" = 4)))
##                             Df Sum Sq Mean Sq F value   Pr(>F)    
## Fumigasi                     1  73.63   73.63  64.971 1.04e-07 ***
## dosis                        4 274.13   68.53  60.471 6.91e-11 ***
##   dosis: Linear              1 273.07  273.07 240.941 1.28e-12 ***
##   dosis: Kuadratik           1   0.76    0.76   0.672    0.422    
##   dosis: Kubik               1   0.27    0.27   0.235    0.633    
##   dosis: Kuartik             1   0.04    0.04   0.034    0.856    
## Fumigasi:dosis               4   0.53    0.13   0.118    0.975    
##   Fumigasi:dosis: Linear     1   0.27    0.27   0.235    0.633    
##   Fumigasi:dosis: Kuadratik  1   0.19    0.19   0.168    0.686    
##   Fumigasi:dosis: Kubik      1   0.07    0.07   0.059    0.811    
##   Fumigasi:dosis: Kuartik    1   0.01    0.01   0.008    0.928    
## Residuals                   20  22.67    1.13                     
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Interaksi antara fumigasi dan dosis tidak terlihat pada pola kubik, kuadratik, belum mencapai taraf signifikansi 5%