Percobaan Pelemparan 1 Dadu Sebanyak 100 Kali

set.seed(1)
dadu<-sample(1:6,100,replace=TRUE)
dadu

##   [1] 1 4 1 2 5 3 6 2 3 3 1 5 5 2 6 6 2 1 5 5 1 1 6 5 5 2 2 6 1 4 1 4 3 6 2 2 6
##  [38] 4 4 4 2 4 1 6 1 4 1 6 2 3 2 6 6 2 5 2 6 6 6 1 3 3 6 4 6 3 1 4 5 1 1 6 4 5
##  [75] 5 4 6 5 4 4 1 5 5 6 1 1 3 6 2 2 3 6 2 4 3 5 2 2 1 3

Frekuensi Muncul Dadu

count_1=length(which(dadu==1))
count_1

## [1] 19

count_2=length(which(dadu==2))
count_2

## [1] 18

count_3=length(which(dadu==3))
count_3

## [1] 12

count_4=length(which(dadu==4))
count_4

## [1] 15

count_5=length(which(dadu==5))
count_5

## [1] 15

count_6=length(which(dadu==6))
count_6

## [1] 21

outcome=c(1:6)
freq=c(count_1,count_2,count_3,count_4,count_5,count_6)
data=data.frame(outcome,freq)
barplot(freq~outcome, data=data, xlab="Angka Dadu", ylab="Frekuensi")

Peluang Muncul Dadu

p1=mean(dadu==1)
p1

## [1] 0.19

p2=mean(dadu==2)
p2

## [1] 0.18

p3=mean(dadu==3)
p3

## [1] 0.12

p4=mean(dadu==4)
p4

## [1] 0.15

p5=mean(dadu==5)
p5

## [1] 0.15

p6=mean(dadu==6)
p6

## [1] 0.21

Dari 100 kali pelemparan 1 dadu, frekuensi muncul dadu angka 1 adalah sebanyak 19, angka 2 sebanyak 18, angka 3 sebanyak 12, angka 4 sebanyak 15, angka 5 sebanyak 15, dan angka 6 sebanyak 21.

Kesimpulan:
Peluang muncul dadu angka 1 adalah 0.19,
peluang muncul dadu angka 2 adalah 0.18,
peluang muncul dadu angka 3 adalah 0.12,
peluang muncul dadu angka 4 adalah 0.15,
peluang muncul dadu angka 5 adalah 0.15, dan
peluang muncul dadu angka 6 adalah 0.21.