Faktorial RAKL

Nama : Lilis Indra Purnama Sari

NIM : G1401221014

library(readxl)
Data <- read_excel("D:/Cooliah/Semester 4/Perancangan Percobaan/Pertemuan 6/Data Tugas Kuliah.xlsx")
Data

## # A tibble: 45 × 4
##    Kelompok Varietas Nitrogen Respon
##       <dbl> <chr>    <chr>    <chr> 
##  1        1 V1       N1       14.9  
##  2        1 V1       N2       15.2  
##  3        1 V1       N3       15.3  
##  4        1 V1       N4       15.8  
##  5        1 V1       N5       15.1  
##  6        1 V2       N1       14.9  
##  7        1 V2       N2       15.1  
##  8        1 V2       N3       15.3  
##  9        1 V2       N4       15.6  
## 10        1 V2       N5       15.9  
## # ℹ 35 more rows

Membaca data dari excel menggunakan library readxl kemudian membuat data frame bernama Data

Data$Kelompok<-as.factor(Data$Kelompok)
Data$Varietas<-as.factor(Data$Varietas)
Data$Nitrogen<-as.factor(Data$Nitrogen)
AnovaFakRAKL<-aov(Respon~Varietas*Nitrogen+Kelompok,data=Data)
summary(AnovaFakRAKL)

##                   Df Sum Sq Mean Sq F value   Pr(>F)    
## Varietas           2 0.1693  0.0847   4.316   0.0232 *  
## Nitrogen           4 2.4902  0.6226  31.732 4.95e-10 ***
## Kelompok           2 0.0640  0.0320   1.631   0.2138    
## Varietas:Nitrogen  8 1.0151  0.1269   6.468 8.98e-05 ***
## Residuals         28 0.5493  0.0196                     
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

qf(0.05,2,28,lower.tail = F)

## [1] 3.340386

qf(0.05,4,28,lower.tail = F)

## [1] 2.714076

qf(0.05,8,28,lower.tail = F)

## [1] 2.291264

Mendefinisikan Kolom Kelompok, Varietas, dan Nitrogen sebagai faktor. Kemudian membuat tabel anovanya dan mencari nilai F tabel.

Interpretasi :

• Pengaruh Varietas → pada anova didapatkan nilai \(F_{hitung}>F_{tabel}\) untuk varietas, maka tolak H0 → Terdapat cukup bukti untuk menyatakan bahwa varietas berpengaruh terhadap rata-rata produktivitas pada taraf nyata 5%.

• Pengaruh Nitrogen → pada anova didapatkan nilai \(F_{hitung}>F_{tabel}\) untuk nitrogen, maka tolak H0 → Terdapat cukup bukti untuk menyatakan bahwa nitrogen berpengaruh terhadap rata-rata produktivitas pada taraf nyata 5%.

• Pengaruh Interaksi Varietas dengan Nitrogen → pada anova didapatkan nilai \(F_{hitung}>F_{tabel}\) untuk varietas dan nitrogen, maka tolak H0 → Terdapat cukup bukti untuk menyatakan bahwa Interaksi Varietas dengan Nitrogen berpengaruh terhadap rata-rata produktivitas pada taraf nyata 5%.

• Pengaruh Kelompok → pada anova didapatkan nilai \(F_{hitung}<F_{tabel}\) untuk kelompok, maka Belum cukup bukti untuk menyatakan tolak H0 → Kelompok tidak berpengaruh terhadap rata-rata produktivitas pada taraf nyata 5%.