[SYNTAX R] Menghitung Peluang Mata Dadu

## Pembangkitan Sample Random
sample (1:6,10, replace=TRUE) ## Pelemparan Dadu 10 Kali
sample (c(“A”,”G”),10,replace=TRUE) ## Pelemparan Mata Uang 10 kali

## Fungsi Pelemparan Dadu sebanyak n kali
Dadu=function(n)
{
sample (1:6,n,replace=TRUE)
}

Dadu(5) ## Pelemparan Dadu 5 kali

## VARIABEL RANDOM
## Kejadian munculnya mata dadu 5 pada pelemparan dadu 10 kali
Dad5=Dadu(10)==5
x=length(Dad5[Dad5==TRUE])
Dad5
x

## Jika dilakukan sebanyak 100 kali
for (i in 1:99) {
Dad5=Dadu(10)==5
x5=length(Dad5[Dad5==TRUE])
x=c(x,x5)
}

##MENGHITUNG PELUANG

x ## Kejadian munculnya mata dadu 5 pada pelemparan dadu 10 kali
p0=length(x[x!=0])/length(x)
p0 ## Peluang munculnya mata dadu 5
p1=length(x[x==0])/length(x)
p1 ## Peluang mata dadu 5 tidak muncul