# Membuat data simulasi
set.seed(123)
<- factor(rep(c("A1", "A2", "A3"), times = 2*2))
pupuk <- factor(rep(c("V1", "V2"), each = 3, times = 2))
varietas <- rep(1:2, each = 6)
ulangan <- round(rnorm(12, mean = 25, sd = 3), 1)
hasil
<- data.frame(pupuk, varietas, ulangan, hasil)
data_ralf data_ralf
pupuk varietas ulangan hasil
1 A1 V1 1 23.3
2 A2 V1 1 24.3
3 A3 V1 1 29.7
4 A1 V2 1 25.2
5 A2 V2 1 25.4
6 A3 V2 1 30.1
7 A1 V1 2 26.4
8 A2 V1 2 21.2
9 A3 V1 2 22.9
10 A1 V2 2 23.7
11 A2 V2 2 28.7
12 A3 V2 2 26.1