## Not run:
# # default
# qq_vase_plot()
#
# # suppress sampling option
# qq_vase_plot(FALSE)
#
# # add uniform distribution to dialog
# dists <- make_df_list()
# dists[["uniform"]] <- list(d=dunif, q=qunif, r=runif)
# qq_vase_plot(TRUE, dists)
#
# # smaller increments, change the method that determines breaks in histogram
# qq_vase_plot(TRUE, step=0.01, breaks=function(x) 2*sqrt(length(x)))
# ## End(Not run)
Run the code above in your browser using DataLab