Menghitung Peluang Bola dalam Kotak Menggunakan R

Menghitung Peluang Bola dalam Kotak Menggunakan R Studio.

Hai Bro... kali ini saya mau berbagi sedikit Ilmu  tentang cara Menghitung peluang dadu di Aplikasi R studio. Langsung saja Berikut Source Code Programnya:

Soal : Jika diketahui Didalam Sebuah Kotak Terdapat 3 Bola dengan warna sebagai Berikut :
           2 Bola Bewarna Hitam, 2 Bola Bewarna Kuning , 1 Bola Bewarna Biru. Tentukan lah
           Peluang Muncul Bola  Warna Hitam Dengan 20 kali Pengambilan Acak !

SOURCE CODE

bola=function(n)

bola=function(n)

{

  kotak=c("H","H","K","K","B")

  ambilbola=sample(kotak,10,rep=T)

  print(ambilbola)

  

  hitam=sum(ambilbola=="H")/length(ambilbola)

  cat("peluang muncul Bola Hitam ",":",hitam,"\n")

  kuning=sum(ambilbola=="K")/length(ambilbola)

  cat("peluang Muncul Bola Kuning ",":",kuning,"\n")

  biru=sum(ambilbola=="B")/length(ambilbola)

  cat("peluang Muncul Bola Biru ",":",biru,"\n")

  }  

OUTPUT PROGRAM

Maka, Peluang Muncul Bola Hitam dalam 20 Kali Pengambilan Acak Adalah 0,7 .

Begitulah sedikit Informasi dari Saya ,apabila terjadi kesalahan atau kesilapan saya mohon maaf .Terimakasih sudah datang dan membaca artikel saya . Sertakan link sumber untuk Menghargai Karya cipta orangnya ☺.