Tugas Praktikum Rancob RAKL
Tengku Muhammad Hafizh Fadhlah
2025-02-26
INPUT DATA
Sumber Data: https://core.ac.uk/reader/229363760
library(readxl)## Warning: package 'readxl' was built under R version 4.4.2data_rakl <- read_excel("C:\\Users\\Hafizh Fadhlah\\OneDrive\\Documents\\Data Rancob RAKL.xlsx")
data_rakl## # A tibble: 48 × 3
## Kategori_Barang_dan_Jasa Bulan Nilai
## <chr> <chr> <dbl>
## 1 Bahan_Makanan Januari 2.2
## 2 Bahan_Makanan Februari -0.58
## 3 Bahan_Makanan Maret 0.69
## 4 Bahan_Makanan April -0.94
## 5 Bahan_Makanan Mei 0.3
## 6 Bahan_Makanan Juni 1.62
## 7 Makanan_Minuman_Rokok_Tembakau Januari 0.51
## 8 Makanan_Minuman_Rokok_Tembakau Februari 0.63
## 9 Makanan_Minuman_Rokok_Tembakau Maret 0.36
## 10 Makanan_Minuman_Rokok_Tembakau April 0.35
## # ℹ 38 more rowsdata_rakl$Kategori_Barang_dan_Jasa <- as.factor(data_rakl$Kategori_Barang_dan_Jasa)
data_rakl$Bulan <- as.factor(data_rakl$Bulan)
head(data_rakl)## # A tibble: 6 × 3
## Kategori_Barang_dan_Jasa Bulan Nilai
## <fct> <fct> <dbl>
## 1 Bahan_Makanan Januari 2.2
## 2 Bahan_Makanan Februari -0.58
## 3 Bahan_Makanan Maret 0.69
## 4 Bahan_Makanan April -0.94
## 5 Bahan_Makanan Mei 0.3
## 6 Bahan_Makanan Juni 1.62ANOVA 2 Faktor
anova_rakl <- aov(Nilai ~ Kategori_Barang_dan_Jasa + Bulan, data = data_rakl)
summary(anova_rakl)## Df Sum Sq Mean Sq F value Pr(>F)
## Kategori_Barang_dan_Jasa 7 4.090 0.5843 2.305 0.0483 *
## Bulan 5 3.668 0.7336 2.894 0.0274 *
## Residuals 35 8.873 0.2535
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1F Tabel
F Tabel Kategori
F_tabel_Kategori <- qf(0.05,7,35,lower.tail = FALSE)
F_tabel_Kategori## [1] 2.285235F Tabel Bulan
F_tabel_Bulan <- qf(0.05,5,35,lower.tail = FALSE)
F_tabel_Bulan## [1] 2.485143Interpretasi
F hitung Kategori (2,305) > F tabel Kategori (2,285), Tolak H0, berarti faktor Kategori berpengaruh signifikan terhadap Nilai F Hit Bulan (2,894) > F tabel Bulan (2,485), Tolak H0, berarti Faktor Bulan berpengaruh signifikan terhadap Nilai
Kenormalan
Boxplot
plot(anova_rakl, which = 2)
qqnorm(anova_rakl$residuals); qqline(anova_rakl$residuals, col = 'red')
Histogram
hist(anova_rakl$residuals,breaks = 6)
Uji Formal
Hipotesis: H0 Sebaran menyebar normal H1: Sebaran tidak menyebar normal
Uji SHapiro-Wilk
shapiro.test(x = anova_rakl$residuals)##
## Shapiro-Wilk normality test
##
## data: anova_rakl$residuals
## W = 0.94748, p-value = 0.03177Didaatkan p-value = 0,03177, berarti p-value < alpha (0,05) menandakan Tolak H0, sebaran menyebar normal
Nilai Harapan Sisa = 0
Uji T
Hipotesis: H0: Nilai Harapan Sisa = 0 H1: Nilai Harapan Sisa != 0
t.test(anova_rakl$residuals,mu = 0,conf.level = 0.95)##
## One Sample t-test
##
## data: anova_rakl$residuals
## t = -7.6067e-16, df = 47, p-value = 1
## alternative hypothesis: true mean is not equal to 0
## 95 percent confidence interval:
## -0.1261655 0.1261655
## sample estimates:
## mean of x
## -4.77049e-17Dalam uji ini didapatkan p-value = 1 yang berarti p=value > alpha (0,05), tidak menolak H0
Kehomogenan Ragam
Hipotesis: H0: Ragam Homogen H1: Ragam Tidak Homogen # Levene Test
library(car)## Warning: package 'car' was built under R version 4.4.2## Loading required package: carData## Warning: package 'carData' was built under R version 4.4.2leveneTest(`Nilai` ~ `Kategori_Barang_dan_Jasa`,data = data_rakl)## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 7 6.1435 6.534e-05 ***
## 40
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1library(car)
leveneTest(`Nilai` ~ `Bulan`,data = data_rakl)## Levene's Test for Homogeneity of Variance (center = median)
## Df F value Pr(>F)
## group 5 1.0546 0.399
## 42Berdasarkan hasil diatas, p-value kategori (0,000006534) < alpha (0,05), Tolak H0 Dan p-value bulan (0,399) > alpha (0,05), Tidak tolak H0, berarti ragamnya homogen
Uji Lanjut
Uji TUkey
uji_tukey <- TukeyHSD(anova_rakl)
uji_tukey## Tukey multiple comparisons of means
## 95% family-wise confidence level
##
## Fit: aov(formula = Nilai ~ Kategori_Barang_dan_Jasa + Bulan, data = data_rakl)
##
## $Kategori_Barang_dan_Jasa
## diff
## Kesehatan-Bahan_Makanan -0.24166667
## Makanan_Minuman_Rokok_Tembakau-Bahan_Makanan -0.04666667
## Pendidikan_Rekreasi_dan_Olahraga-Bahan_Makanan -0.49333333
## Perumahan_Air_Listrik_Gas_dan_Bahan Bakar-Bahan_Makanan -0.54000000
## Sandang-Bahan_Makanan -0.08000000
## Transport_Komunikasi_dan_Jasa_Keuangan-Bahan_Makanan -0.92166667
## Umum-Bahan_Makanan -0.37166667
## Makanan_Minuman_Rokok_Tembakau-Kesehatan 0.19500000
## Pendidikan_Rekreasi_dan_Olahraga-Kesehatan -0.25166667
## Perumahan_Air_Listrik_Gas_dan_Bahan Bakar-Kesehatan -0.29833333
## Sandang-Kesehatan 0.16166667
## Transport_Komunikasi_dan_Jasa_Keuangan-Kesehatan -0.68000000
## Umum-Kesehatan -0.13000000
## Pendidikan_Rekreasi_dan_Olahraga-Makanan_Minuman_Rokok_Tembakau -0.44666667
## Perumahan_Air_Listrik_Gas_dan_Bahan Bakar-Makanan_Minuman_Rokok_Tembakau -0.49333333
## Sandang-Makanan_Minuman_Rokok_Tembakau -0.03333333
## Transport_Komunikasi_dan_Jasa_Keuangan-Makanan_Minuman_Rokok_Tembakau -0.87500000
## Umum-Makanan_Minuman_Rokok_Tembakau -0.32500000
## Perumahan_Air_Listrik_Gas_dan_Bahan Bakar-Pendidikan_Rekreasi_dan_Olahraga -0.04666667
## Sandang-Pendidikan_Rekreasi_dan_Olahraga 0.41333333
## Transport_Komunikasi_dan_Jasa_Keuangan-Pendidikan_Rekreasi_dan_Olahraga -0.42833333
## Umum-Pendidikan_Rekreasi_dan_Olahraga 0.12166667
## Sandang-Perumahan_Air_Listrik_Gas_dan_Bahan Bakar 0.46000000
## Transport_Komunikasi_dan_Jasa_Keuangan-Perumahan_Air_Listrik_Gas_dan_Bahan Bakar -0.38166667
## Umum-Perumahan_Air_Listrik_Gas_dan_Bahan Bakar 0.16833333
## Transport_Komunikasi_dan_Jasa_Keuangan-Sandang -0.84166667
## Umum-Sandang -0.29166667
## Umum-Transport_Komunikasi_dan_Jasa_Keuangan 0.55000000
## lwr
## Kesehatan-Bahan_Makanan -1.1779754
## Makanan_Minuman_Rokok_Tembakau-Bahan_Makanan -0.9829754
## Pendidikan_Rekreasi_dan_Olahraga-Bahan_Makanan -1.4296420
## Perumahan_Air_Listrik_Gas_dan_Bahan Bakar-Bahan_Makanan -1.4763087
## Sandang-Bahan_Makanan -1.0163087
## Transport_Komunikasi_dan_Jasa_Keuangan-Bahan_Makanan -1.8579754
## Umum-Bahan_Makanan -1.3079754
## Makanan_Minuman_Rokok_Tembakau-Kesehatan -0.7413087
## Pendidikan_Rekreasi_dan_Olahraga-Kesehatan -1.1879754
## Perumahan_Air_Listrik_Gas_dan_Bahan Bakar-Kesehatan -1.2346420
## Sandang-Kesehatan -0.7746420
## Transport_Komunikasi_dan_Jasa_Keuangan-Kesehatan -1.6163087
## Umum-Kesehatan -1.0663087
## Pendidikan_Rekreasi_dan_Olahraga-Makanan_Minuman_Rokok_Tembakau -1.3829754
## Perumahan_Air_Listrik_Gas_dan_Bahan Bakar-Makanan_Minuman_Rokok_Tembakau -1.4296420
## Sandang-Makanan_Minuman_Rokok_Tembakau -0.9696420
## Transport_Komunikasi_dan_Jasa_Keuangan-Makanan_Minuman_Rokok_Tembakau -1.8113087
## Umum-Makanan_Minuman_Rokok_Tembakau -1.2613087
## Perumahan_Air_Listrik_Gas_dan_Bahan Bakar-Pendidikan_Rekreasi_dan_Olahraga -0.9829754
## Sandang-Pendidikan_Rekreasi_dan_Olahraga -0.5229754
## Transport_Komunikasi_dan_Jasa_Keuangan-Pendidikan_Rekreasi_dan_Olahraga -1.3646420
## Umum-Pendidikan_Rekreasi_dan_Olahraga -0.8146420
## Sandang-Perumahan_Air_Listrik_Gas_dan_Bahan Bakar -0.4763087
## Transport_Komunikasi_dan_Jasa_Keuangan-Perumahan_Air_Listrik_Gas_dan_Bahan Bakar -1.3179754
## Umum-Perumahan_Air_Listrik_Gas_dan_Bahan Bakar -0.7679754
## Transport_Komunikasi_dan_Jasa_Keuangan-Sandang -1.7779754
## Umum-Sandang -1.2279754
## Umum-Transport_Komunikasi_dan_Jasa_Keuangan -0.3863087
## upr
## Kesehatan-Bahan_Makanan 0.69464205
## Makanan_Minuman_Rokok_Tembakau-Bahan_Makanan 0.88964205
## Pendidikan_Rekreasi_dan_Olahraga-Bahan_Makanan 0.44297538
## Perumahan_Air_Listrik_Gas_dan_Bahan Bakar-Bahan_Makanan 0.39630871
## Sandang-Bahan_Makanan 0.85630871
## Transport_Komunikasi_dan_Jasa_Keuangan-Bahan_Makanan 0.01464205
## Umum-Bahan_Makanan 0.56464205
## Makanan_Minuman_Rokok_Tembakau-Kesehatan 1.13130871
## Pendidikan_Rekreasi_dan_Olahraga-Kesehatan 0.68464205
## Perumahan_Air_Listrik_Gas_dan_Bahan Bakar-Kesehatan 0.63797538
## Sandang-Kesehatan 1.09797538
## Transport_Komunikasi_dan_Jasa_Keuangan-Kesehatan 0.25630871
## Umum-Kesehatan 0.80630871
## Pendidikan_Rekreasi_dan_Olahraga-Makanan_Minuman_Rokok_Tembakau 0.48964205
## Perumahan_Air_Listrik_Gas_dan_Bahan Bakar-Makanan_Minuman_Rokok_Tembakau 0.44297538
## Sandang-Makanan_Minuman_Rokok_Tembakau 0.90297538
## Transport_Komunikasi_dan_Jasa_Keuangan-Makanan_Minuman_Rokok_Tembakau 0.06130871
## Umum-Makanan_Minuman_Rokok_Tembakau 0.61130871
## Perumahan_Air_Listrik_Gas_dan_Bahan Bakar-Pendidikan_Rekreasi_dan_Olahraga 0.88964205
## Sandang-Pendidikan_Rekreasi_dan_Olahraga 1.34964205
## Transport_Komunikasi_dan_Jasa_Keuangan-Pendidikan_Rekreasi_dan_Olahraga 0.50797538
## Umum-Pendidikan_Rekreasi_dan_Olahraga 1.05797538
## Sandang-Perumahan_Air_Listrik_Gas_dan_Bahan Bakar 1.39630871
## Transport_Komunikasi_dan_Jasa_Keuangan-Perumahan_Air_Listrik_Gas_dan_Bahan Bakar 0.55464205
## Umum-Perumahan_Air_Listrik_Gas_dan_Bahan Bakar 1.10464205
## Transport_Komunikasi_dan_Jasa_Keuangan-Sandang 0.09464205
## Umum-Sandang 0.64464205
## Umum-Transport_Komunikasi_dan_Jasa_Keuangan 1.48630871
## p adj
## Kesehatan-Bahan_Makanan 0.9899785
## Makanan_Minuman_Rokok_Tembakau-Bahan_Makanan 0.9999998
## Pendidikan_Rekreasi_dan_Olahraga-Bahan_Makanan 0.6889779
## Perumahan_Air_Listrik_Gas_dan_Bahan Bakar-Bahan_Makanan 0.5872482
## Sandang-Bahan_Makanan 0.9999927
## Transport_Komunikasi_dan_Jasa_Keuangan-Bahan_Makanan 0.0562891
## Umum-Bahan_Makanan 0.9006636
## Makanan_Minuman_Rokok_Tembakau-Kesehatan 0.9972826
## Pendidikan_Rekreasi_dan_Olahraga-Kesehatan 0.9872983
## Perumahan_Air_Listrik_Gas_dan_Bahan Bakar-Kesehatan 0.9670829
## Sandang-Kesehatan 0.9991772
## Transport_Komunikasi_dan_Jasa_Keuangan-Kesehatan 0.3021376
## Umum-Kesehatan 0.9998038
## Pendidikan_Rekreasi_dan_Olahraga-Makanan_Minuman_Rokok_Tembakau 0.7827379
## Perumahan_Air_Listrik_Gas_dan_Bahan Bakar-Makanan_Minuman_Rokok_Tembakau 0.6889779
## Sandang-Makanan_Minuman_Rokok_Tembakau 1.0000000
## Transport_Komunikasi_dan_Jasa_Keuangan-Makanan_Minuman_Rokok_Tembakau 0.0812229
## Umum-Makanan_Minuman_Rokok_Tembakau 0.9484139
## Perumahan_Air_Listrik_Gas_dan_Bahan Bakar-Pendidikan_Rekreasi_dan_Olahraga 0.9999998
## Sandang-Pendidikan_Rekreasi_dan_Olahraga 0.8410362
## Transport_Komunikasi_dan_Jasa_Keuangan-Pendidikan_Rekreasi_dan_Olahraga 0.8158671
## Umum-Pendidikan_Rekreasi_dan_Olahraga 0.9998739
## Sandang-Perumahan_Air_Listrik_Gas_dan_Bahan Bakar 0.7571833
## Transport_Komunikasi_dan_Jasa_Keuangan-Perumahan_Air_Listrik_Gas_dan_Bahan Bakar 0.8877982
## Umum-Perumahan_Air_Listrik_Gas_dan_Bahan Bakar 0.9989319
## Transport_Komunikasi_dan_Jasa_Keuangan-Sandang 0.1043948
## Umum-Sandang 0.9708692
## Umum-Transport_Komunikasi_dan_Jasa_Keuangan 0.5651245
##
## $Bulan
## diff lwr upr p adj
## Februari-April 0.31625 -0.44234795 1.0748479 0.8060286
## Januari-April 0.70250 -0.05609795 1.4610979 0.0828581
## Juni-April 0.86500 0.10640205 1.6235979 0.0177063
## Maret-April 0.50500 -0.25359795 1.2635979 0.3595239
## Mei-April 0.53750 -0.22109795 1.2960979 0.2935723
## Januari-Februari 0.38625 -0.37234795 1.1448479 0.6452626
## Juni-Februari 0.54875 -0.20984795 1.3073479 0.2726108
## Maret-Februari 0.18875 -0.56984795 0.9473479 0.9739694
## Mei-Februari 0.22125 -0.53734795 0.9798479 0.9490996
## Juni-Januari 0.16250 -0.59609795 0.9210979 0.9865644
## Maret-Januari -0.19750 -0.95609795 0.5610979 0.9683675
## Mei-Januari -0.16500 -0.92359795 0.5935979 0.9856115
## Maret-Juni -0.36000 -1.11859795 0.3985979 0.7090067
## Mei-Juni -0.32750 -1.08609795 0.4310979 0.7825335
## Mei-Maret 0.03250 -0.72609795 0.7910979 0.9999945library(ggplot2)## Warning: package 'ggplot2' was built under R version 4.4.2plot(uji_tukey)
