Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- data = RandomVariate[BinomialDistribution[20, 0.1], 20^4];
- Show[Histogram[data, {1}, "PDF"],
- DiscretePlot[PDF[BinomialDistribution[20, 0.1], x], {x, 0, 20},
- PlotStyle -> PointSize[Medium]]]
Add Comment
Please, Sign In to add comment