powered by
rsimpson(n) dsimpson(x)
smkde
histospline
x0 = seq(-3,3,length=100) x = rsimpson(3000) y = round(x) out = histo(y) plot(out) lines(smkde(y),col=3) lines(histospline(y),col=4) lines(density(x)) lines(dsimpson(x0),col=2)
Run the code above in your browser using DataLab