## Not run:
# prfit <- fitprecision(interval = c(60, 70), propvals = c(0.2, 0.4), trans = "log")
# medianfit <- fitdist(vals = c(50, 60, 70), probs = c(0.05, 0.5, 0.95), lower = 0)
# pdfplots(medianfit, prfit, alpha = 0.01)
# ## End(Not run)
Run the code above in your browser using DataLab