if (FALSE) {
vQuartiles <- c(30, 35, 45)
pQuartiles<- c(0.25, 0.5, 0.75)
myfit <- fitdist(vals = vQuartiles, probs = pQuartiles, lower = 0)
makeCDFPlot(lower = 0, v = vQuartiles, p = pQuartiles,
upper = 100, fit = myfit, dist = "gamma",
showFittedCDF = TRUE, showQuantiles = TRUE)
}
Run the code above in your browser using DataLab