data(iris, package="datasets")
### Fit gldrm and return fTiltMatrix
fit <- gldrm(Sepal.Length ~ Sepal.Width + Petal.Length + Petal.Width + Species,
data=iris, link="log")
# Probability inverse transform plot
gldrmPIT(fit)
Run the code above in your browser using DataLab