抛硬币和骰子

 抛硬币是常见的随机试验。例如抛一枚硬币，观察正面和反面出现的概率。将一枚硬币抛100次观察，正面和反面出现的情况。以下模拟抛硬币100次：

>set.seed(2)

>sample(c(0,1), 100, replace = TRUE, prob = c(1/2,1/2))

[1] 1 0 0 1 0 0 1 0 1 0 0 1 0 1 1 0 0 1 1 1 01 0 1 1 1 1 1 0 1 1 1 0 0

[35] 0 0 0 1 0 1 0 1 1 1 0 0 0 1 0 0 1 1 0 0 10 0 0 0 0 0 0 0 1 0 1 1 1

[69] 1 1 1 1 1 1 1 0 1 0 1 0 1 0 1 1 1 0 0 1 01 0 1 1 0 1 1 1 1 1 1

抛骰子是常见的随机试验。以下模拟抛骰子10次

set.seed用于设置随机数种子。其中1:6表示1、2、3、4、5、6。当然也可以如上例一样写成c(1,2,3,4,5,6)

>set.seed(2)

>sample(1:6, 10, replace = TRUE, prob = c(1/6,1/6,1/6,1/6,1/6,1/6))

 [1] 3 6 5 3 1 1 2 1 4 5