model1 <- multdrc(FA)
## Displaying the residual plot (raw residuals)
plot(fitted(model1), residuals(model1))
## Using the standardised residuals
plot(fitted(model1), residuals(model1, rstandard = TRUE))
rm(model1)
Run the code above in your browser using DataLab