<- data.frame(
data_kacangan Media_Tanam = rep(c("Abu sekam", "Tanah", "Kapas"), each = 9),
Intensitas_Cahaya = rep(c("Terang", "Redup", "Gelap"), times = 9),
Ulangan = rep(c("Ulangan I", "Ulangan II", "Ulangan III"), each = 3, times = 3),
H1 = c(0, 0, 0, 0, 1.4, 2.5, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0.8, 1.6, 1.2, 2.6, 3.5, 1.2, 2.6, 3.5),
H2 = c(0, 0, 1.8, 0, 2.3, 5.2, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0,
0.8, 1.4, 2.5, 1.6, 3.5, 4.5, 2.6, 3.5, 4.8),
H3 = c(0, 0, 2.3, 0, 3.5, 8.5, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0,
1.4, 2.5, 4.5, 3.5, 4.5, 6.8, 3.8, 4.8, 8.2),
H4 = c(0.2, 1.3, 3.5, 0.8, 5.2, 9.3, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0,
2.5, 4.0, 5.5, 4.5, 6.5, 7.8, 3.5, 4.5, 7.8),
H5 = c(1.3, 2.4, 8.5, 1.5, 8.0, 10.5, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0,
4.0, 5.5, 8.0, 6.5, 7.8, 10.2, 4.5, 6.7, 9.1),
H6 = c(2.4, 3.2, 12, 3.2, 13.5, 14.1, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0,
5.5, 7.0, 11.5, 8.2, 10.0, 11.5, 6.7, 7.8, 10.2),
H7 = c(4.5, 4.7, 13.5, 7.8, 10.5, 14.1, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0,
4.5, 6.0, 8.0, 7.8, 9.1, 11.5, 9.1, 11.5, 15)
)
summary(data_kacangan)
Media_Tanam Intensitas_Cahaya Ulangan H1
Length:27 Length:27 Length:27 Min. :0.0000
Class :character Class :character Class :character 1st Qu.:0.0000
Mode :character Mode :character Mode :character Median :0.0000
Mean :0.7741
3rd Qu.:1.3000
Max. :3.5000
H2 H3 H4 H5
Min. :0.000 Min. :0.000 Min. :0.000 Min. : 0.00
1st Qu.:0.000 1st Qu.:0.000 1st Qu.:0.000 1st Qu.: 0.00
Median :0.000 Median :0.000 Median :0.800 Median : 1.50
Mean :1.278 Mean :2.011 Mean :2.478 Mean : 3.50
3rd Qu.:2.400 3rd Qu.:3.650 3rd Qu.:4.500 3rd Qu.: 7.25
Max. :5.200 Max. :8.500 Max. :9.300 Max. :10.50
H6 H7
Min. : 0.000 Min. : 0.000
1st Qu.: 0.000 1st Qu.: 0.000
Median : 3.200 Median : 4.500
Mean : 4.696 Mean : 5.096
3rd Qu.: 9.100 3rd Qu.: 9.100
Max. :14.100 Max. :15.000