n <- 20
set.seed(123)
Treat <- runif(n)
R <- runif(n)-0.5
epsilon <- Treat^2 + R
Y <- Treat + R + epsilon
df <- data.frame(Y=Y,Treat=Treat,R=R)
NRDD(df,e_space = seq(0,1,by=0.5),Nonseparable=FALSE)
# \donttest{
n <- 500
set.seed(123)
data <- nrddgp(n)
NRDD(data,e_space = seq(-10,10,by=1))
# }
Run the code above in your browser using DataLab