{"id":19492610,"url":"https://github.com/rafifiaan/module2-probabilitystatistics-r","last_synced_at":"2025-08-27T07:11:54.775Z","repository":{"id":166321801,"uuid":"576979225","full_name":"rafifiaan/Module2-ProbabilityStatistics-R","owner":"rafifiaan","description":"This repository is for solving probability statistics using the R language","archived":false,"fork":false,"pushed_at":"2022-12-11T18:17:29.000Z","size":7,"stargazers_count":0,"open_issues_count":7,"forks_count":0,"subscribers_count":1,"default_branch":"main","last_synced_at":"2025-02-25T20:18:28.991Z","etag":null,"topics":["probability-statistics","r","rlanguage"],"latest_commit_sha":null,"homepage":"","language":"R","has_issues":true,"has_wiki":null,"has_pages":null,"mirror_url":null,"source_name":null,"license":null,"status":null,"scm":"git","pull_requests_enabled":true,"icon_url":"https://github.com/rafifiaan.png","metadata":{"files":{"readme":"README.md","changelog":null,"contributing":null,"funding":null,"license":null,"code_of_conduct":null,"threat_model":null,"audit":null,"citation":null,"codeowners":null,"security":null,"support":null,"governance":null,"roadmap":null,"authors":null,"dei":null,"publiccode":null,"codemeta":null}},"created_at":"2022-12-11T15:53:00.000Z","updated_at":"2023-08-30T16:12:04.000Z","dependencies_parsed_at":"2023-06-09T03:30:19.901Z","dependency_job_id":null,"html_url":"https://github.com/rafifiaan/Module2-ProbabilityStatistics-R","commit_stats":null,"previous_names":["rafifiaan/module2-probabilitystatistics-r"],"tags_count":0,"template":false,"template_full_name":null,"repository_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/rafifiaan%2FModule2-ProbabilityStatistics-R","tags_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/rafifiaan%2FModule2-ProbabilityStatistics-R/tags","releases_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/rafifiaan%2FModule2-ProbabilityStatistics-R/releases","manifests_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/rafifiaan%2FModule2-ProbabilityStatistics-R/manifests","owner_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners/rafifiaan","download_url":"https://codeload.github.com/rafifiaan/Module2-ProbabilityStatistics-R/tar.gz/refs/heads/main","host":{"name":"GitHub","url":"https://github.com","kind":"github","repositories_count":240738122,"owners_count":19849549,"icon_url":"https://github.com/github.png","version":null,"created_at":"2022-05-30T11:31:42.601Z","updated_at":"2022-07-04T15:15:14.044Z","host_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub","repositories_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories","repository_names_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repository_names","owners_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners"}},"keywords":["probability-statistics","r","rlanguage"],"created_at":"2024-11-10T21:22:12.352Z","updated_at":"2025-02-25T20:18:31.277Z","avatar_url":"https://github.com/rafifiaan.png","language":"R","funding_links":[],"categories":[],"sub_categories":[],"readme":"# Praktikum Modul 2_Probstat_A_5025211234\n\n Nama           : Rafi Aliefian Putra Ramadhani        \n NRP            : 5025211234    \n\n## Nomor 1\nSeorang peneliti melakukan penelitian mengenai pengaruh aktivitas 𝐴 terhadap kadar saturasi oksigen pada manusia. Peneliti tersebut mengambil sampel sebanyak 9 responden. Pertama, sebelum melakukan aktivitas 𝐴, peneliti mencatat kadar saturasi oksigen dari 9 responden tersebut. Kemudian, 9 responden tersebut diminta melakukan aktivitas 𝐴. Setelah 15 menit, peneliti tersebut mencatat kembali kadar saturasi oksigen dari 9 responden tersebut. Berikut data dari 9 responden mengenai kadar saturasi oksigen sebelum dan sesudah melakukan aktivitas 𝐴.\n\n| Responden   | X        | Y        |\n|-------------|----------|----------|\n| 1 | 78 | 100 |\n| 2 | 75 | 95 |\n| 3 | 67 | 70 |\n| 4 | 77 | 90 |\n| 5 | 70 | 90 |\n| 6 | 72 | 90 |\n| 7 | 78 | 89 |\n| 8 | 74 | 90 |\n| 9 | 77 | 100 |\n\nBerdasarkan data pada tabel diatas, diketahui kadar saturasi oksigen dari responden ke-3 ketika belum melakukan aktivitas 𝐴 sebanyak 67, dan setelah melakukan aktivitas 𝐴 sebanyak 70.\n\n### 1 Point A\n\u003e Carilah standar deviasi dari data selisih pasangan pengamatan tabel di atas.\n\n*Pertama*, masukkan data yang telah ada ke dalam variabel sesuai pengelompokannya.\n\n```R\nbefore \u003c- c(78, 75, 67, 77, 70, 72, 78, 74, 77)\nafter \u003c- c(100, 95, 70, 90, 90, 90, 89, 90, 100)\n```\n\n*Kedua*, cari selisih dari antar data dengan index yang sama. Kemudian, dilakukan pencarian rata-rata dari selisih-selisih tersebut untuk digunakan dalam mencari nilai standar deviasinya dengan rumus sebagai berikut.\n\n```R\ndifference \u003c- after - before\ndifference\nmean(difference)\nsd(difference)\n```\n\n![1PointA](https://user-images.githubusercontent.com/91828276/206914887-b5607b7d-4319-41e0-bbfd-a497c5eaa4ea.png)\n\u003c/br\u003e\n\n### 1 Point B\n\u003eCarilah nilai t (p-value).\n\nSolusi dilakukan dengan menggunakan fungsi `t.test()` sebagai berikut dengan parameter masukan data yaitu data kelompok yang telah dikelompokkan pada poin sebelumnya.\n\n```R\nt.test(after, before, paired = TRUE)\n```\n\n![1PointB](https://user-images.githubusercontent.com/91828276/206914893-60281421-c040-4028-be2b-67716e514825.png)\n\u003c/br\u003e\n\n### 1 Point C\n\u003eTentukanlah apakah terdapat pengaruh yang signifikan secara statistika dalam hal kadar saturasi oksigen , sebelum dan sesudah melakukan aktivitas 𝐴 jika diketahui tingkat signifikansi 𝛼 = 5% serta H0 : “tidak ada pengaruh yang signifikan secara statistika dalam hal kadar saturasi oksigen , sebelum dan sesudah melakukan aktivitas 𝐴”\n\nBerdasarkan hasil poin sebelumnya, diketahui bahwa nilai probabilitas dari uji 𝑡 (p-value) adalah 6.003e-05 atau 0.00006003. Karena nilai probabilitas tersebut lebih kecil dibandingkan tingkat signifikansi 𝛼 = 0.05, maka **hipotesis nol ditolak dan hipotesis alternatif diterima.** \n\nHal ini artinya sebelum dan sesudah melakukan aktivitas 𝐴 pada tingkat signifikansi 5%, terdapat pengaruh yang signifikan secara statistika dalam hal kadar saturasi oksigen.\n\u003c/br\u003e\n\n## Nomor 2\n**(Hipotesa 1 Sampel)** Diketahui bahwa mobil dikemudikan rata-rata lebih dari 20.000 kilometer per tahun. Untuk menguji klaim ini, 100 pemilik mobil yang dipilih secara acak diminta untuk mencatat jarak yang mereka tempuh. Jika sampel acak menunjukkan rata-rata 23.500 kilometer dan standar deviasi 3900 kilometer. (Kerjakan menggunakan 2 library seperti referensi pada modul).\n### 2 Point A\n\u003eApakah Anda setuju dengan klaim tersebut?\n\nSetuju, karena dengan rata-rata 23.5000 dari sampel acak dengan standar deviasi 3900 kilometer, maka sangatlah mungkin klaim tersebut valid. Hal itu karena grafik dari persebaran data distribusi normal yang dihasilkan akan lebih pekat di daerah lebih dari 20.000 kilometer dengan asumsi nilai tengah grafik tersebut adalah rata-rata dari sampel acak yang didapatkan.\n\nSelanjutnya, digunakan sebuah package library BSDA untuk membuat solusi permasalahannya.\n\n```R\ninstall.packages(\"BSDA\")\nlibrary(BSDA)\n```\n\u003c/br\u003e\n\n### 2 Point B\n\u003eJelaskan maksud dari output yang dihasilkan!\n\nUntuk menyelesaikan nya perlu menggunakan fungsi `tsum.test()` dengan parameter-parameter yang disebutkan pada poin sebelumnya. Hasilnya adalah sebagai berikut.\n\n```R\ntsum.test(mean.x = 23500, s.x = 3900, n.x = 100)\n```\n\n![2PointB](https://user-images.githubusercontent.com/91828276/206915876-e08783dd-1817-4add-b195-55913cff8ab5.png)\n\nSehingga dengan interval kepercayaan 95%, rata-rata jarak tempuh mobil per tahun berada di antara 22.726,16 km dan 24.273,84 km. Dengan interval kepercayaan 95% dan dari 100 responden, dapat dibuktikan bahwa rata-rata jarak tempuh mobil per thn lebih dari 20.000 km karena nilai p-value kurang dari tingkat signifikansi 𝛼 = 0.05.\n\u003c/br\u003e\n\n### 2 Point C\n\u003eBuatlah kesimpulan berdasarkan P-Value yang dihasilkan!\n\nDikarenakan nilai probabilitas tersebut lebih kecil dibandingkan tingkat signifikansi 𝛼 = 0.05, maka **hipotesis nol ditolak dan hipotesis alternatif diterima.** Sehingga, kesimpulan yang didapatkan yaitu bahwa mobil dikemudikan rata-rata lebih dari 20.000 kilometer per tahun.\n\u003c/br\u003e\n\n## Nomor 3\n**(Hipotesa 2 Sampel)** Diketahui perusahaan memiliki seorang data analyst ingin memecahkan permasalahan pengambilan keputusan dalam perusahaan tersebut. Selanjutnya didapatkanlah data berikut dari perusahaan saham tersebut.\n\n| Nama Kota/Atribut   | Bandung        | Bali       |\n|-------------|----------|----------|\n| Jumlah Saham              | 19 | 27 |\n| Sampel Mean               | 3.64 | 2.79 |\n| Sampel Standar Deviasi    | 1.67 | 1.32 |\n\nDari data diatas berilah keputusan serta kesimpulan yang didapatkan dari hasil\ndiatas. Asumsikan nilai variancenya sama, apakah ada perbedaan pada\nrata-ratanya (α= 0.05)? Buatlah:\n\n### 3 Point A\n\u003eH0 dan H1(3)\n\nBerdasarkan deskripsi dan data yang terlampir, maka dapat disusun hipotesis H0 dan H1 sebagai berikut.\n- H0 ← μ1 = μ2 (rata-rata saham di Bandung sama dengan di Bali)\n- H1 ← μ1 ≠ μ2 (rata-rata saham di Bandung tidak sama dengan di Bali)\n\n### 3 Point B\n\u003eHitung sampel statistik(3)\n\nPenyelesaian menggunakan fungsi `tsum.test()` dengan parameter sesuai dengan data pada tabel terlampir. Fungsi tersebut menghasilkan nilai dari sampel statistik.\n\n```R\ntsum.test(mean.x=3.64, s.x = 1.67, n.x = 19, \n          mean.y =2.79 , s.y = 1.32, n.y = 27, \n          alternative = \"greater\", var.equal = TRUE)\n```\n\n![3PointB](https://user-images.githubusercontent.com/91828276/206916717-e1bb864a-e0f7-4c7a-8c75-b15ce71a9ca8.png)\n\u003c/br\u003e\n\n### 3 Point C\n\u003eLakukan uji statistik (df =2)(5)\n\nInstall Package Mosaic untuk membuat S=solusi permasalahan.\n\n```R\ninstall.packages(\"mosaic\")\nlibrary(mosaic)\n```\n\nLangkah selanjutnya yaitu dengan menggunakan fungsi `plotDist()` untuk mendapatkan gambaran atau visualisasi dari statistik dengan derajat bebas sebesar 2.\n\n```R\nplotDist(dist = 't', df = 2, col = \"blue\")\n```\n\n![3PointC](https://user-images.githubusercontent.com/91828276/206916721-23cf5648-99d6-475b-a388-6781a1af0a51.png)\n\u003c/br\u003e\n\n### 3 Point D\n\u003eNilai Kritikal(3)\n\nPenyelesaian dengan menggunakan fungsi `qchisq()` dengan nilai `df` sesuai dengan yang telah terlampir untuk mendapatkan nilai kritikal.\n\n```R\nqchisq(p = 0.05, df = 2, lower.tail = FALSE)\n```\n\n![3PointD](https://user-images.githubusercontent.com/91828276/206916723-228629ef-0ec3-4ea6-a455-2ccb99cc79f5.png)\n\u003c/br\u003e\n\n### 3 Point E\n\u003eKeputusan(3)\n\nTeori keputusan merupakan teori formal pengambilan keputusan di bawah ketidakpastian. Aksinya adalah `({a}\\_{a∈A})` dengan kemungkinan konsekuensinya adalah `({c}_{c∈C})` (tergantung pada keadaan dan tindakan). Sehingga, keputusan dapat diperoleh dengan menggunakan fungsi `t.test`\n\u003c/br\u003e\n\n### 3 Point F\n\u003eKesimpulan(3)\n\nDapat disimpulkan bahwa perbedaan rata-rata yang terjadi tidak ada jika dilihat dari uji statistik. Namun, akan ada (meski tidak signifikan) jika dipengaruhi oleh nilai kritikal.\n\u003c/br\u003e\n\n## Nomor 4\n**(Anova satu arah)** Seorang Peneliti sedang meneliti spesies dari kucing di ITS. Dalam penelitiannya ia mengumpulkan data tiga spesies kucing yaitu kucing oren, kucing hitam dan kucing putih dengan panjangnya masing-masing.\n\nJika diketahui dataset pada **https://intip.in/datasetprobstat1** dan H0 adalah tidak ada perbedaan panjang antara ketiga spesies atau rata-rata panjangnya sama, maka kerjakan atau carilah:\n\n### 4 Point A\n\u003eBuatlah masing masing jenis spesies menjadi 3 subjek \"Grup\" (grup 1, grup 2, dan grup 3). Lalu gambarkan plot kuantil normal untuk setiap kelompok dan lihat apakah ada outlier utama dalam homogenitas varians.\n\n*Pertama*, masukkan data dari dataset yang disediakan.\n\n```R\ndataoneway \u003c- read.table(\"https://rstatisticsandresearch.weebly.com/uploads/1/0/2/6/1026585/onewayanova.txt\", h = T)\nattach(dataoneway)\nnames(dataoneway)\n```\n\n*Kedua*, melakukan grouping sesuai dengan label yang telah ditentukan sekaligus melakukan pengecekan value dalam grup yang dihasilkan.\n\n```R\ndataoneway$Group \u003c- as.factor(dataoneway$Group)\ndataoneway$Group = factor(dataoneway$Group, labels = c(\"Kucing Oren\", \"Kucing Hitam\", \"Kucing Putih\"))\n\nclass(dataoneway$Group)\n```\n\n![4PointA1](https://user-images.githubusercontent.com/91828276/206918403-d7a5f9aa-7daa-4368-b030-95c4c54958c0.png)\n\n*Ketiga*, membagi tiap valuer menjadi 3 bagian sesuai dengan label grup yang telah dibuat.\n\n```R\nGroup1 \u003c- subset(dataoneway, Group == \"Kucing Oren\")\nGroup2 \u003c- subset(dataoneway, Group == \"Kucing Hitam\")\nGroup3 \u003c- subset(dataoneway, Group == \"Kucing Putih\")\n```\n\n*Keempat*, menggambar plot kuantil normal untuk setiap grup untuk melihat distribusi data dan outlier utama dalam homogenitas varians pada masing-masing grup.\n\n```R\nqqnorm(Group1$Length)\nqqline(Group1$Length)\n```\n\n![4PointA2](https://user-images.githubusercontent.com/91828276/206918407-24c912a7-ed61-4fb4-a94f-d74725594abb.png)\n\n```R\nqqnorm(Group2$Length)\nqqline(Group2$Length)\n```\n\n![4PointA3](https://user-images.githubusercontent.com/91828276/206918409-c315cb5f-03c1-48a5-bbc5-8076ba0a81df.png)\n\n```R\nqqnorm(Group3$Length)\nqqline(Group3$Length)\n```\n\n![4PointA4](https://user-images.githubusercontent.com/91828276/206918417-2379f19b-0b6d-4657-a6a8-631d36c7f8b7.png)\n\u003c/br\u003e\n\n### 4 Point B\n\u003eCarilah atau periksalah homogeneity of variances-nya. Berapa nilai p yang didapatkan? Apa hipotesis dan kesimpulan yang dapat diambil?\n\nPenyelesaian untuk mendapatkan homogeneity of variances adalah dengan menggunakan sebuah fungsi yaitu fungsi `bartlett.test()` dengan parameter dari data yang telah dimasukkan sebelumnya.\n\n```R\nbartlett.test(Length ~ Group, data = dataoneway)\n```\n\n![4PointB](https://user-images.githubusercontent.com/91828276/206918421-582b0ed0-1f3f-4974-a171-96eb075bca51.png)\n\nDari hasil uji fungsi `bartlett.test()` didapatkan p-value sebesar 0.8054 yang lebih dari nilai 𝛼 = 0.05 sehingga asumsi kesamaan varians terpenuhi.\n\u003c/br\u003e\n\n### 4 Point C\n\u003eUntuk uji ANOVA (satu arah), buatlah model linier dengan panjang versus grup dan beri nama model tersebut model 1.\n\nPenyelesaian dari membuat uji anova dan model liniernya yaitu digunakan fungsi `lm()` dan `anova()` dengan parameter dari data yang telah dimasukkan sebelumnya.\n\n```R\nmodel1 = lm(Length ~ Group, data = dataoneway)\nanova(model1)\n```\n\n![4PointC](https://user-images.githubusercontent.com/91828276/206918424-9bccca33-e2a7-462b-a7f9-fec5b7868773.png)\n\u003c/br\u003e\n\n### 4 Point D\n\u003eDari hasil poin C, berapakah nilai p? Apa yang dapat Anda simpulkan dari H0?\n\nMelihat dari hasil yang didapatkan pada poin sebelumnya, pada taraf uji 5% didapatkan nilai p-value sebesar 0.0013. \n\nSehingga, terdapat perbedaan panjang kucing yang signifikan berdasarkan grupnya.\n\u003c/br\u003e\n\n### 4 Point E\n\u003eVerifikasilah jawaban model 1 dengan Post-hoc test Tukey HSD, dari nilai p yang didapatkan apakah satu jenis kucing lebih panjang dari yang lain? Jelaskan.\n\nVerifikasi jawaban model 1 sebelumnya menggunakan sebuah fungsi yaitu fungsi `TukeyHSD()` dengan parameter model 1 dari AOV sebelumnya.\n\n```R\nTukeyHSD(aov(model1))\n```\n\n![4PointE](https://user-images.githubusercontent.com/91828276/206918426-ceafb36c-bc2d-4ce6-9ed4-cc5fdc64595b.png)\n\nDari hasil uji Tukey, dapat dilihat kombinasi dari kelompok mana yang secara signifikan berbeda. Jika menggunakan 𝛼 = 5%, **perbedaan panjang kucing yang signifikan adalah grup 2 (Kucing Hitam) terhadap grup 1 (Kucing Oren) dan grup 3 (Kucing Putih)**.\n\u003c/br\u003e\n\n### 4 Point F\n\u003eVisualisasikan data dengan ggplot2\n\nPenyelesaian menggunakan sebuah fungsi `ggplot()` untuk melakukan visualisasi data.\n\n```R\ninstall.packages(\"ggplot2\")\nlibrary(\"ggplot2\")\n\nggplot(dataoneway, aes(x = Group, y = Length)) + geom_boxplot(fill = \"grey80\", colour = \"black\") + scale_x_discrete() + xlab(\"Treatment Group\") + ylab(\"Length (cm)\")\n```\n\n![4PointF](https://user-images.githubusercontent.com/91828276/206918428-049e520e-f030-4865-a7ef-8a504fba6d7c.png)\n\u003c/br\u003e\n\n## Nomor 5\n**(Anova dua arah)** Data yang digunakan merupakan hasil eksperimen yang dilakukan untuk mengetahui pengaruh suhu operasi (100˚C, 125˚C, dan 150˚C) dan tiga jenis kaca pelat muka (A, B dan C) pada keluaran cahaya tabung osiloskop. Percobaan dilakukan sebanyak 27 kali dan didapatkan [**data hasil eksperimen berikut**](https://drive.google.com/file/d/1aLUOdw_LVJq6VQrQEkuQhZ8FW43FemTJ/view). Dengan data tersebut:\n\n### 5 Point A\n\u003eBuatlah plot sederhana untuk visualisasi data\n\n*Pertama*, gunakan beberapa library sebagai berikut.\n\n```R\ninstall.packages(\"multcompView\")\nlibrary(readr)\nlibrary(ggplot2)\nlibrary(multcompView)\nlibrary(dplyr)\n```\n\n*Kedua*, masukkan dan baca dataset yang telah disediakan.\n\n```R\nGTL \u003c- read_csv(\"GTL.csv\")\nhead(GTL)\n```\n\n![5PointA1](https://user-images.githubusercontent.com/91828276/206921111-23bcf548-d7dc-4f8b-a058-109f64241c5a.png)\n\n*Ketiga*, lakukan observasi pada dataset.\n\n```R\nstr(GTL)\n```\n\n![5PointA2](https://user-images.githubusercontent.com/91828276/206921115-a4937d92-7333-4f27-b0d0-27759553e5b1.png)\n\n*Keempat*, lakukan viasualisasi dengan menggunakan simple plot dengan fungsi `qplot()` sebagai berikut.\n\n```R\nqplot(x = Temp, y = Light, geom = \"point\", data = GTL) + facet_grid(.~Glass, labeller = label_both)\n```\n\n![5PointA3](https://user-images.githubusercontent.com/91828276/206921120-73ca8257-98e3-4055-86ab-fedc31e8dd82.png)\n\n\u003c/br\u003e\n\n### 5 Point B\n\u003eLakukan uji ANOVA dua arah untuk 2 faktor\n\n*Pertama*, buat variabel as factor sebagai ANOVA.\n\n```R\nGTL$Glass \u003c- as.factor(GTL$Glass)\nGTL$Temp_Factor \u003c- as.factor(GTL$Temp)\nstr(GTL)\n```\n\n![5PointB1](https://user-images.githubusercontent.com/91828276/206919968-8a68bc10-bcff-4f9f-ac67-43c43577236d.png)\n\n*Kedua*, lakukan analisis of variance (AoV) dengan fungsi `summary(aov())` sebagai berikut.\n\n```R\nanova \u003c- aov(Light ~ Glass*Temp_Factor, data = GTL)\nsummary(anova)\n```\n\n![5PointB2](https://user-images.githubusercontent.com/91828276/206919977-a32f6a24-cfac-4553-ba1d-1db295a9a6eb.png)\n\n\u003c/br\u003e\n\n### 5 Point C\n\u003eTampilkan tabel dengan mean dan standar deviasi keluaran cahaya untuk setiap perlakuan (kombinasi kaca pelat muka dan suhu operasi)\n\nPenyelesaian-nya dengan menggunakan sebuah fungsi `group_by()` yang selanjutnya digunakan untuk melakukan data summary dengan fungsi `summarise()` sesuai mean dan standar deviasi yang berlaku sebagai berikut.\n\n```R\ndata_summary \u003c- group_by(GTL, Glass, Temp) %\u003e%\n  summarise(mean = mean(Light), sd = sd(Light)) %\u003e%\n  arrange(desc(mean))\nprint(data_summary)\n```\n\n![5PointC](https://user-images.githubusercontent.com/91828276/206919978-75ba38aa-6b2c-4293-b6a9-f538d62edcb2.png)\n\n\u003c/br\u003e\n\n### 5 Point D\n\u003eLakukan uji Tukey\n\nPenyelesaian dengan menggunakan sebuah fungsi `TukeyHSD()` sebagai berikut.\n\n```R\ntukey \u003c- TukeyHSD(anova)\nprint(tukey)\n```\n\n![5PointD1](https://user-images.githubusercontent.com/91828276/206920078-fe319b1f-4955-4897-997a-f166fed189f8.png)\n\n![5PointD2](https://user-images.githubusercontent.com/91828276/206920080-75e1d7d9-8af6-4eab-9b6f-c24109f72fef.png)\n\n\u003c/br\u003e\n\n### 5 Point E\n\u003eGunakan compact letter display untuk menunjukkan perbedaan signifikan antara uji Anova dan uji Tukey\n\n*Pertama*, buat compact letter display dengan fungsi `multcompLetterS4()` sebagai berikut.\n\n```R\ntukey.cld \u003c- multcompLetters4(anova, tukey)\nprint(tukey.cld)\n```\n\n![5PointE1](https://user-images.githubusercontent.com/91828276/206920082-46a6c07a-3a03-41ce-9d43-b7bb5cdcb222.png)\n\n*Kedua*, tambahkan compact letter display tersebut ke tabel dengan mean dan standar deviasi yang telah dibuat sebelumnya.\n\n```R\ncld \u003c- as.data.frame.list(tukey.cld$`Glass:Temp_Factor`)\ndata_summary$Tukey \u003c- cld$Letters\nprint(data_summary)\n```\n\n![5PointE2](https://user-images.githubusercontent.com/91828276/206920083-299bd247-87f1-47be-a86a-ce9d07c7b07d.png)\n\n\u003c/br\u003e\n\n# Alhamdulillah, Terimakasih, Bismillah lulus :)","project_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Frafifiaan%2Fmodule2-probabilitystatistics-r","html_url":"https://awesome.ecosyste.ms/projects/github.com%2Frafifiaan%2Fmodule2-probabilitystatistics-r","lists_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Frafifiaan%2Fmodule2-probabilitystatistics-r/lists"}