Menghitung Peluang Mata Dadu Menggunakan Program R

PELUANG MATA DADU MENGGUNAKAN PROGRAM R STUDIO


Hai Bro... kali ini saya mau berbagi sedikit Ilmu  tentang cara Menghitung peluang dadu di Aplikasi R studio.... saya Memiliki 2 Versi Source Code :


Versi I

Berikut Source code :

dadu=function(n)

{

  sampel=sample(1:6,n,rep=T)

  

  cat(sampel)

  cat("\n\n")

  for(i in 1:6){

    prob = sum(sampel==i)/n

    cat("probabilitas muncul mata", i ,prob,"\n")

  }

}

Output Program

Versi II

Berikut Source code :

dadu=function(n)

{

  sampel=sample(c("1","2","3","4","5","6"),n,rep=T)

cat(sampel," ")

cat("\nPeluang dadu Bermata satu ", ":",sum(sampel=="1")/n)

cat("\nPeluang dadu Bermata dua ", ":",sum(sampel=="2")/n)

cat("\nPeluang dadu Bermata tiga ", ":",sum(sampel=="3")/n)

cat("\nPeluang dadu Bermata empat ", ":",sum(sampel=="4")/n)

cat("\nPeluang dadu Bermata lima ", ":",sum(sampel=="5")/n)

cat("\nPeluang dadu Bermata enam ", ":",sum(sampel=="6")/n)

}

Output Program

Penjelasan Program

setelah Penulisan Source code maka ketik "dadu(n)" di console.sehingga didapatkan hasil peluangnya. n adalah banyak lemparan pada Dadu. Kalau fungsi Rep=T itu berguna untuk mengacak kemunculan sampel .

Peluang dadu dimana terdapat syarat peluang Muncul mata dadu.

Contoh tentukan peluang dari dadu bermata 5 dengan n kali perlemparan dadu , dimana peluang Setiap dadu ialah

mata  dadu 1  p (1/9)                                      mata dadu 4  p (2/9)

mata dadu 2  p (3/9)                                       mata dadu 5  p (1/9)

mata dadu 3  p (1/9)                                       mata dadu 6  p (1/9)

artinya peluang muncul setiap mata dadu di atas tidak boleh melebihi aturan di atas. Conntohnya jika peluang muncul mata dadu 2 dalam 9 kli perlemparan adalah 2/9 . maka peluang mata dadu benar . tapi jika mata dadu 2 yang keluar sebanyak 5 dari 9 perlemparan ..maka tidak memenuhi syarat

Source  program

var=function(n)

{

  dadu=c(1:6)

  lempardadu=sample(dadu,n,rep=T,prob=c(1/9,3/9,1/9,2/9,1/9,1/9))

  print(lempardadu)

  cat("\n")

  P5=sum(lempardadu=="5")/length(lempardadu)

  cat("Peluang Muncul Mata dadu 5 adalah ",":",P5)

}

Output Program

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 ☺.