# NOT RUN {
q <- seq(-.5, 7.5, .5)
pp <- pdiscunif(q, 6)
## xyplot(pp ~ q,
## scales=list(
## x=list(at=floor(min(q)):ceiling(max(q))),
## y=list(at=seq(0, 1, .1))))
qq <- qdiscunif(pp, 6)
dd <- ddiscunif(q, 6)
cbind(q, pp, qq, dd)
rdiscunif(12, 6)
# }
Run the code above in your browser using DataLab