data("post")
x.post<- seq(post$xinput[100],max(post$xinput),
length.out=100)
# When rho[x] is known and equal to 2, we set:
rho<-2
# a. Optimal k in Pickands frontier estimators
best_kn.pick<-kopt_momt_pick(post$xinput, post$yprod,
x.post, method="pickands", rho=rho)
# b. Optimal k in moment frontier estimators
if (FALSE) {
best_kn.momt<-kopt_momt_pick(post$xinput, post$yprod,
x.post, rho=rho)
}
Run the code above in your browser using DataLab