if (FALSE) {
myfitX <- fitdist(vals = c(5.5, 9, 14),
probs = c(0.25, 0.5, 0.75),
lower = 0)
plotConditionalDensities(y = c(2, 6, 10),
fitX = myfitX,
yCP = c(3, 5, 7, 9.5, 13.5),
xMed = c(2, 6.5, 9, 13, 20),
medianY = 7,
link = "log",
dist = "lognormal",
xLimits = c(0, 60))
# Example with the logit link
myfitXlogit <- fitdist(vals = c(0.2, 0.25, 0.3),
probs = c(0.25, 0.5, 0.75),
lower = 0,
upper = 1)
plotConditionalDensities(y = c(2, 6, 10),
fitX = myfitXlogit,
yCP = c(2, 4, 6, 8, 10),
xMed = c(0.1, 0.3, 0.5, 0.7, 0.9),
medianY = 6,
link = "logit",
dist = "beta")
}
Run the code above in your browser using DataLab