Nothing
## from Peter Dalgaard 2020-11-24
## '(without the truncate=FALSE, curves pretty much go through
## the penultimate point, whatever reasonable bandwith is chosen.)'
library(KernSmooth)
if(require("carData")) {
plot(prestige ~ income, data = Prestige)
with(Prestige, lines(locpoly(income, prestige, bandwidth = 5000)))
with(Prestige, lines(locpoly(income, prestige,
bandwidth = 5000, truncate = FALSE)))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.