# NOT RUN {
# Xie data
x<-c(5, 11, 21, 31, 46, 75, 98, 122, 145, 165, 195, 224, 245, 293, 321, 330, 350, 420)
#Apply test of Cabana and Quiroz with the least squares estimators
# }
# NOT RUN {
WLP.test(x, type="CQ*",funEstimate="LSE")
# }
Run the code above in your browser using DataLab