Discussion 8

suppressWarnings({library(discreteRV)})

## 
## Attaching package: 'discreteRV'

## The following object is masked from 'package:base':
## 
##     %in%

x <- RV(outcomes =c(1,2,3), probs =c(1/4,1/4,1/2))
dist <- SofIID(x, 10)

dist

## Random variable with 21 outcomes
## 
## Outcomes            10            11            12            13            14            15            16            17            18            19            20            21
## Probs                0             0             0             0    555/524288    843/262144   4365/524288    1215/65536     379/10501  32285/524288 97285/1048576    1646/13365
## 
## Displaying first 12 outcomes

plot(dist)