Guest User

Untitled

a guest
Sep 18th, 2018
56
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.13 KB | None | 0 0
  1. library(rdd)
  2. x<-runif(1000,-1,1)
  3. x<-x+2*(runif(1000,-1,1)>0&x<0)
  4. DCdensity(x,0,plot=TRUE)
  5.  
  6. xlim=c(-0.5,0.5)
  7.  
  8. abline(v=0)
Add Comment
Please, Sign In to add comment