Peluang Kartu Poker

Peluang Kartu Poker Menggunkan Aplikasi R Studio

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

SOURCE CODE

kartu=paste(rep(c("A",2:10,"J","Q","K"),4),c("H","D","S","C"))

ambilkartu=sample(kartu,55,rep=T)

ambilkartu

kartu

cc= sum(ambilkartu=="K H")/length(ambilkartu)

cat("probabilitas Muncul KING HATI ",":",cc)

OUTPUT PROGRAM

PENJELASAN

⧫kartu=paste(rep(c("A",2:10,"J","Q","K"),4),c("H","D","S","C"))

 ➥ Menampilkan Banyak Kartu Poker Sebanyak 52 kartu yang tediri   dari Heart(hati) , Spade(sekop) ,Diamond(wajik) ,Club(keriting).

⧫ambilkartu=sample(kartu,55,rep=T) 

 ➥ Menampilkan Peluang Kartu dengan banyak kartu 55 buah. Sehingga   3 sisa kartu  diambil secara acak melalui fungsi rep=T .

⧫cc= sum(ambilkartu=="K H")/length(ambilkartu)

 cat("probabilitas Muncul KING HATI ",":",cc)
 ➥ Menampilkan peluang banyak muncul kartu king hati pada sampel     "ambil kartu" sehingga di dapat peluang muncul kartu king hati        dengan banyak kartu 55 adalah 0.01818182 .


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