{"id":1242,"date":"2023-07-27T04:14:56","date_gmt":"2023-07-27T04:14:56","guid":{"rendered":"https:\/\/statorials.org\/id\/manajer-tes-di-r\/"},"modified":"2023-07-27T04:14:56","modified_gmt":"2023-07-27T04:14:56","slug":"manajer-tes-di-r","status":"publish","type":"post","link":"https:\/\/statorials.org\/id\/manajer-tes-di-r\/","title":{"rendered":"Cara melakukan tes scheffe di r"},"content":{"rendered":"

<\/p>\n

\n

ANOVA satu arah<\/a> digunakan untuk menentukan apakah terdapat perbedaan yang signifikan secara statistik antara rata-rata tiga atau lebih kelompok independen.<\/span><\/p>\n

Jika nilai p keseluruhan tabel ANOVA berada di bawah tingkat signifikansi tertentu, maka kita memiliki cukup bukti untuk mengatakan bahwa setidaknya salah satu mean kelompok berbeda dari mean kelompok lainnya.<\/span><\/p>\n

Namun, hal ini tidak memberi tahu kita kelompok mana<\/em> yang berbeda satu sama lain. Hal ini menunjukkan kepada kita bahwa tidak semua rata-rata kelompok adalah sama.<\/span><\/p>\n

Untuk mengetahui secara pasti kelompok mana yang berbeda satu sama lain, kita perlu melakukan uji post-hoc<\/a> yang dapat mengontrol tingkat<\/span> kesalahan per keluarga<\/a> .<\/span><\/p>\n

Salah satu tes post hoc yang paling umum digunakan adalah tes Scheffe.<\/span><\/p>\n

Tutorial ini menjelaskan cara melakukan tes Scheffe di R.<\/span><\/p>\n

Contoh: Tes Scheffe di R<\/strong><\/span><\/h3>\n

Misalkan seorang guru ingin mengetahui apakah tiga teknik belajar yang berbeda menghasilkan nilai ujian yang berbeda di antara siswa. Untuk mengujinya, dia secara acak menugaskan 10 siswa untuk menggunakan setiap teknik belajar dan mencatat hasil ujian mereka.<\/span><\/p>\n

Kita dapat menggunakan langkah-langkah berikut dalam R untuk menyesuaikan ANOVA satu arah untuk menguji perbedaan rata-rata nilai ujian antara ketiga kelompok dan menggunakan uji Scheffe untuk menentukan dengan tepat kelompok mana yang berbeda.<\/span><\/p>\n

Langkah 1: Buat kumpulan data.<\/span><\/strong><\/p>\n

Kode berikut menunjukkan cara membuat kumpulan data yang berisi hasil ujian seluruh 30 siswa:<\/span><\/p>\n

 #create data frame<\/span>\ndata <- data.frame(technique = rep<\/span> (c(\"tech1\", \"tech2\", \"tech3\"), each<\/span> = 10<\/span> ),\n                   score = c(76, 77, 77, 81, 82, 82, 83, 84, 85, 89,\n                             81, 82, 83, 83, 83, 84, 87, 90, 92, 93,\n                             77, 78, 79, 88, 89, 90, 91, 95, 95, 98))\n\n#view first six rows of data frame<\/span>\nhead(data)\n\n  technical score\n1 tech1 76\n2 tech1 77\n3 tech1 77\n4 tech1 81\n5 tech1 82\n6 tech1 82\n<\/strong><\/pre>\n
 Langkah 2: Lihat hasil ujian untuk setiap kelompok.<\/span><\/strong><\/p>\n
 Kode berikut menunjukkan cara membuat diagram kotak untuk memvisualisasikan sebaran hasil ujian tiap kelompok:<\/span> <\/p>\n
 boxplot(score ~ technique,\n        data = data,\n        main = \"Exam Scores by Studying Technique\",\n        xlab = \"Studying Technique\",\n        ylab = \"Exam Scores\",\n        col = \"steelblue\",\n        border = \"black\")\n<\/strong><\/pre>\n
\"Koreksi<\/p>\n
 Langkah 3: Lakukan ANOVA satu arah.<\/span><\/strong><\/p>\n
 Kode berikut menunjukkan cara melakukan ANOVA satu arah untuk menguji perbedaan antara rata-rata nilai ujian di setiap kelompok:<\/span><\/p>\n
 #fit the one-way ANOVA model<\/span>\nmodel <- aov(score ~ technique, data = data)\n\n#view model output\n<\/span>summary(model)\n\n            Df Sum Sq Mean Sq F value Pr(>F)  \ntechnical 2 211.5 105.73 3.415 0.0476 *\nResiduals 27 836.0 30.96                 \n---\nSignificant. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1<\/strong><\/pre>\n
 Karena nilai p keseluruhan ( 0,0476<\/strong> ) kurang dari 0,05, hal ini menunjukkan bahwa setiap kelompok tidak memiliki rata-rata nilai ujian yang sama.<\/span><\/p>\n
 Selanjutnya kita akan melakukan uji Scheffe untuk mengetahui kelompok mana yang berbeda.<\/span><\/p>\n
 Langkah 4: Lakukan tes Scheffe.<\/strong><\/span><\/p>\n
 Untuk melakukan pengujian Scheffe, kita akan menggunakan fungsi ScheffeTest()<\/strong> dari paket DescTools<\/a> .<\/span><\/p>\n
 Kode berikut menunjukkan cara menggunakan fungsi ini untuk contoh kita:<\/span><\/p>\n
 #load DescTools package<\/span>\nlibrary(DescTools)\n\n#perform Scheffe's test\n<\/span>ScheffeTest(model)\n\n  Posthoc multiple comparisons of means: Scheffe Test \n    95% family-wise confidence level\n\n$technical\n            diff lwr.ci upr.ci pval    \ntech2-tech1 4.2 -2.24527202 10.645272 0.2582    \ntech3-tech1 6.4 -0.04527202 12.845272 0.0519 .  \ntech3-tech2 2.2 -4.24527202 8.645272 0.6803    \n\n---\nSignificant. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1\n<\/strong><\/pre>\n
 Cara menafsirkan hasilnya adalah sebagai berikut:<\/span><\/p>\n