powered by
hPsi <- chgDefaults(huberPsi, k=2) curve(huberPsi@psi(x), 0, 3) curve(hPsi@psi(x), 0, 3, color="blue", add=TRUE)
Run the code above in your browser using DataLab