model1 <- multdrc(ryegrass)
## Displaying the residual plot (raw residuals)
plot(fitted(model1), residuals(model1))
## Using the standardised residuals
plot(fitted(model1), residuals(model1, type = "standard"))
rm(model1)
Run the code above in your browser using DataLab