if (FALSE) {
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)
}
Run the code above in your browser using DataLab