plot(huberPsi)
plot(huberPsi, which=c("psi", "Dpsi", "wgt"),
main="short", leg = "topleft")
plot(hampelPsi)
## Plotting aspect ratio = 1:1 :
plot(hampelPsi, asp=1, main="short",
which = c("psi", "Dpsi", "wgt", "Dwgt"))
Run the code above in your browser using DataLab