library(readxl)
## Warning: package 'readxl' was built under R version 4.4.2
Databeton <- read_xlsx("C:/Users/LENOVO/Downloads/Data Makalah Rancob.xlsx")
Databeton
## # A tibble: 20 × 2
## `Campuran Kacang Kemiri` `Kuat Tekan Beton`
## <chr> <dbl>
## 1 Campuran 0% 164.
## 2 Campuran 0% 187.
## 3 Campuran 0% 202.
## 4 Campuran 0% 215.
## 5 Campuran 10% 56.5
## 6 Campuran 10% 68.2
## 7 Campuran 10% 76.1
## 8 Campuran 10% 83.3
## 9 Campuran 15% 51.8
## 10 Campuran 15% 55.6
## 11 Campuran 15% 58.5
## 12 Campuran 15% 58.9
## 13 Campuran 20% 32.0
## 14 Campuran 20% 35.2
## 15 Campuran 20% 36.1
## 16 Campuran 20% 34.0
## 17 Campuran 25% 23.4
## 18 Campuran 25% 23.5
## 19 Campuran 25% 31.1
## 20 Campuran 25% 30.7
Data_Beton <- data.frame(
Campuran_Kacang_Kemiri = c(
"Campuran 0%", "Campuran 0%", "Campuran 0%", "Campuran 0%",
"Campuran 10%", "Campuran 10%", "Campuran 10%", "Campuran 10%",
"Campuran 15%", "Campuran 15%", "Campuran 15%", "Campuran 15%",
"Campuran 20%", "Campuran 20%", "Campuran 20%", "Campuran 20%",
"Campuran 25%", "Campuran 25%", "Campuran 25%", "Campuran 25%"
),
Kuat_Tekan_Beton = c(
164.03, 187.31, 202.01, 214.56,
56.5, 68.24, 76.12, 83.3,
51.81, 55.59, 58.5, 58.93,
32.01, 35.21, 36.13, 34.01,
23.44, 23.47, 31.14, 30.69
)
)
Data_Beton
## Campuran_Kacang_Kemiri Kuat_Tekan_Beton
## 1 Campuran 0% 164.03
## 2 Campuran 0% 187.31
## 3 Campuran 0% 202.01
## 4 Campuran 0% 214.56
## 5 Campuran 10% 56.50
## 6 Campuran 10% 68.24
## 7 Campuran 10% 76.12
## 8 Campuran 10% 83.30
## 9 Campuran 15% 51.81
## 10 Campuran 15% 55.59
## 11 Campuran 15% 58.50
## 12 Campuran 15% 58.93
## 13 Campuran 20% 32.01
## 14 Campuran 20% 35.21
## 15 Campuran 20% 36.13
## 16 Campuran 20% 34.01
## 17 Campuran 25% 23.44
## 18 Campuran 25% 23.47
## 19 Campuran 25% 31.14
## 20 Campuran 25% 30.69
Data_Beton$Campuran_Kacang_Kemiri<-as.factor(Data_Beton$Campuran_Kacang_Kemiri)
ANOVARAL<-aov(`Kuat_Tekan_Beton`~Campuran_Kacang_Kemiri,data=Data_Beton)
summary(ANOVARAL)
## Df Sum Sq Mean Sq F value Pr(>F)
## Campuran_Kacang_Kemiri 4 71942 17985 141.5 1.02e-11 ***
## Residuals 15 1906 127
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
qf(0.05,4,20,lower.tail=FALSE)
## [1] 2.866081