
overlay.sim(sim, breaks, col = "red", pch = 1, lwd = 1)
sim.hypint
and sim.hydist
.
"red"
.
sim.hypint
, sim.hydist
.## Generate exact distribution and plot:
dd <- dhint(108, c(54,76,89))
plot(dd[,1], dd[,2], col="blue")
## Simulate drawing from 3 urns (sims should be larger).
nn <- sim.hydist(108, c(54,76,89), sims = 10)
## Add data to existing distribution plot:
overlay.sim(nn, breaks = 0:54)
Run the code above in your browser using DataLab