powered by
ksmooth(x, y, kernel = c("box", "normal"), bandwidth = 0.5, range.x = range(x), n.points = max(100L, length(x)), x.points)
0.25*bandwidth
n.points
range.x
x
require(graphics) with(cars, { plot(speed, dist) lines(ksmooth(speed, dist, "normal", bandwidth = 2), col = 2) lines(ksmooth(speed, dist, "normal", bandwidth = 5), col = 3) })
Run the code above in your browser using DataLab