# NOT RUN {
# }
# NOT RUN {
set.seed(34);x=matrix(sample(1:600)[1:50],ncol=5)
require(np)
k1=kern_ctrl(x[,1],x[,2],ctrl=x[,4:5])
print(k1$R2) #prints the R square of the kernel regression
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab