如何在R中找到两次掷骰子的每个结果的最大值？

要找到两次掷骰子的每个结果的最大值，我们可以按照以下步骤操作 -

• 使用expand.grid函数创建两次掷骰子的结果。

• 使用 pmin 函数查找每个结果的最大值。

产生两次掷骰子的结果

使用expand.grid函数创建两次掷骰子的结果，如下所示 -

M<-expand.grid(rep(list(1:6),2))
M

执行时，上述脚本生成以下内容output(this output will vary on your system due to randomization)-

 Var1 Var2
1  1 1
2  2 1
3  3 1
4  4 1
5  5 1
6  6 1
7  1 2
8  2 2
9  3 2
10 4 2
11 5 2
12 6 2
13 1 3
14 2 3
15 3 3
16 4 3
17 5 3
18 6 3
19 1 4
20 2 4
21 3 4
22 4 4
23 5 4
24 6 4
25 1 5
26 2 5
27 3 5
28 4 5
29 5 5
30 6 5
31 1 6
32 2 6
33 3 6
34 4 6
35 5 6
36 6 6

找出每个投掷结果的最大值

使用 pmax 函数查找每次掷骰子的最大值 -

M<-expand.grid(rep(list(1:6),2))
do.call(pmax,M)

输出

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