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)
cdfplot(medianfit, prfit)
}
Run the code above in your browser using DataLab