How to find the maximum of each outcome of two throws of a die in R?



To find the maximum of each outcome of two throws of a die, we can follow the below steps −

  • Create the outcome of two throws of a die using expand.grid function.
  • Finding the maximum of each outcome using pmin function.

Generating the outcome of two throws of a die

Use expand.grid function to create the outcomes of throwing a die two times as shown below −

 Live Demo

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

On executing, the above script generates the below 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

Find the maximum of each outcome of the throws

Use pmax function to find the maximum of each throw of die −

 Live Demo

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

Output

[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

Advertisements