powered by
ruginv(x,ticksize=0.03,side=1,lwd=0.5,col=par("fg"),col.ticks="white", quiet=getOption("warn") < 0,...)
require(stats) plot(density(faithful$eruptions,bw=0.15)) ruginv(faithful$eruptions,ticksize=-0.05) ruginv(jitter(faithful$eruptions,amount=0.01),side=3,col="lightblue")
Run the code above in your browser using DataLab