op <- par(mfrow = c(3,1), oma = c(0,0, 2, 0),
mgp = c(1.5, 0.6, 0), mar= .1+c(3,4,3,2))
x <- seq(-2.5, 2.5, length = 201)
cc <- 1.55 # as set by default in lmrob.control()
plot. <- function(...) { plot(...); abline(h=0,v=0, col="gray", lty=3)}
plot.(x, tukeyChi(x, cc), type = "l", col = 2)
plot.(x, tukeyChi(x, cc, deriv = 1), type = "l", col = 2)
plot.(x, tukeyChi(x, cc, deriv = 2), type = "l", col = 2)mtext(sprintf("tukeyChi(x, c = %g, deriv), deriv = 0,1,2", cc),
outer = TRUE, font = par("font.main"), cex = par("cex.main"))
par(op)
Run the code above in your browser using DataLab