MSR nomor 1 Koin

set.seed(172507)

Fungsi Pelemparan Koin

FlipCoin = function(n) sample(0:1,n,rep=T)

Simulasi pelemparan koin sebanyak 100x

flip100=FlipCoin(100)
flip100

##   [1] 1 1 1 1 0 0 0 1 0 0 1 1 1 1 1 1 1 1 1 0 1 0 1 0 0 1 1 1 0 0 0 0 0 0 0 0 1
##  [38] 1 1 0 1 1 0 1 0 1 0 1 0 1 0 1 0 1 0 0 1 1 0 1 1 1 1 0 1 1 0 0 1 0 1 0 0 0
##  [75] 1 0 0 1 0 1 1 1 1 1 1 1 0 0 0 1 0 1 1 1 0 1 0 0 1 0

Menghitung frekuensi relatif Heads dan Tails pada pelemparan koin sebanyak 100x

#Tails
sum(flip100==0)

## [1] 45

sum(flip100==0)/100

## [1] 0.45

#Heads
sum(flip100==1)

## [1] 55

sum(flip100==1)/100

## [1] 0.55

Histogram pelemparan koin sebanyak 100x

hist(flip100, breaks=c(-0.5, 0.5, 1.5), col="pink", xlab="Hasil Pelemparan Koin 100x", ylab="Frekuensi", main="Histogram Pelemparan Koin 100x")

set.seed(172507)

Fungsi Pelemparan Koin

FlipCoin = function(n) sample(0:1,n,rep=T)

Simulasi pelemparan koin sebanyak 500x

flip500=FlipCoin(500)
flip500

##   [1] 1 1 1 1 0 0 0 1 0 0 1 1 1 1 1 1 1 1 1 0 1 0 1 0 0 1 1 1 0 0 0 0 0 0 0 0 1
##  [38] 1 1 0 1 1 0 1 0 1 0 1 0 1 0 1 0 1 0 0 1 1 0 1 1 1 1 0 1 1 0 0 1 0 1 0 0 0
##  [75] 1 0 0 1 0 1 1 1 1 1 1 1 0 0 0 1 0 1 1 1 0 1 0 0 1 0 0 1 0 0 0 0 0 1 0 0 1
## [112] 1 0 1 1 0 0 0 0 0 0 0 1 0 1 1 0 0 0 1 0 0 0 1 1 1 1 0 1 0 1 0 0 1 0 1 1 0
## [149] 1 0 0 1 1 0 1 0 1 0 0 0 1 0 1 1 0 0 1 1 0 1 1 1 1 0 0 0 1 0 0 1 1 1 0 1 1
## [186] 0 1 1 1 1 1 1 0 0 1 1 1 1 0 1 1 0 1 0 0 0 1 1 0 0 1 1 0 1 0 1 0 1 1 1 0 0
## [223] 0 0 1 0 1 1 0 0 0 1 0 0 0 0 0 1 0 0 0 1 0 0 0 1 0 1 1 0 1 1 1 1 1 0 0 1 1
## [260] 1 0 0 1 1 1 1 1 0 1 1 1 0 0 1 0 1 1 1 0 1 0 1 1 0 0 0 0 1 0 0 1 0 0 1 0 0
## [297] 1 0 0 0 0 1 0 0 1 0 0 1 1 1 1 1 1 1 1 0 0 1 0 0 1 0 0 0 0 0 0 1 0 0 0 1 1
## [334] 0 1 1 0 1 1 0 0 1 0 0 1 0 1 0 1 1 1 1 1 0 1 0 1 0 1 0 0 0 0 1 1 0 1 1 1 1
## [371] 0 1 0 1 1 0 1 0 1 0 1 0 1 0 0 0 1 1 1 1 0 1 0 0 1 1 0 0 0 0 0 1 1 1 1 1 0
## [408] 1 1 1 1 0 1 0 0 1 0 1 1 0 0 0 1 0 1 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 1 1 0
## [445] 0 0 1 1 1 1 1 0 1 0 0 1 1 0 0 1 0 1 1 1 1 0 1 0 1 1 1 1 1 0 1 0 0 0 1 0 1
## [482] 0 0 0 0 1 0 0 1 0 1 1 1 1 1 1 0 0 1 1

Menghitung frekuensi relatif Heads dan Tails pada pelemparan koin sebanyak 500x

#Tails
sum(flip500==0)

## [1] 247

sum(flip500==0)/500

## [1] 0.494

#Heads
sum(flip500==1)

## [1] 253

sum(flip500==1)/500

## [1] 0.506

Histogram pelemparan koin sebanyak 500x

hist(flip500, breaks=c(-0.5, 0.5, 1.5), col="pink", xlab="Hasil Pelemparan Koin 500x", ylab="Frekuensi", main="Histogram Pelemparan Koin 500x")