# 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