powered by
wjitter(x, w, amount=.43)
x <- seq(1,20) w <- runif(20, 0,1) plot(x,wjitter(w,x))
Run the code above in your browser using DataLab