data("post")
x.post<- seq(post$xinput[100],max(post$xinput),
length.out=100)
if (FALSE) {
# When rho[x] is unknown and dependent of x,
# its estimate hat(rho[x]) is obtained via:
rho_pwm <- rho_pwm(post$xinput, post$yprod, x.post, a=20)
}
Run the code above in your browser using DataLab