https://blog.revolutionanalytics.com/2009/02/how-to-choose-a-random-number-in-r.html

## Generate random numbers between 0 and 1

```
runif(1,0,1) # 1 random number
runif(5,0,1) # 5 random numbers
```

## Generate random integers between 1 and 100

```
sample(x = 100, size = 1, replace = TRUE) # x = 100 means between 1 and 100
sample(x = 100, size = 5, replace = TRUE) # 5 random numbers
sample(x = 100, size = 5, replace = FALSE) # 5 random numbers, without replacement
sample(x = 50:100, size = 5, replace = TRUE) # 5 random numbers between 50 and 100
```

## Select random items from a list

```
sample(x = state.name, size = 1, replace = FALSE)
sample(x = state.name, size = 5, replace = FALSE)
```

## Randomly order a list

```
sample(x = 1:10, size = 10, replace = FALSE)
```

## Roll a cube with 4 ‘R’ and 2 ‘G’ 3 times. Do this 1000 times and list the likelihood of each possible sequence.

```
cube = c('R','R','R','R','G','G')
n_iter = 1000
round <- function() { paste(sample(x = cube, size = 4, replace = TRUE),
collapse = '') }
table(replicate(n_iter, round())) / n_iter
```