data("post")
x.post<- seq(post$xinput[100],max(post$xinput),
length.out=100)
if (FALSE) {
# When rho[x] is known and equal to 2:
best_cm.1<- mopt_pwm(post$xinput, post$yprod,
x.post, a=2, rho=2)
}
Run the code above in your browser using DataLab