powered by
corplot
panel.smooth.r(x, y, col = par("col"), bg = NA, pch = par("pch"), cex = par("cex"), col.smooth = "red", span = 2/3, iter = 3, ...)