# NOT RUN {
##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
# }
# NOT RUN {
y<-rnorm(100,0,1)
noise<-abs(rnorm(100,2,4))
ystar<- noise*y
a<- -2
b<- 2
order<-findOrder_Rmask(ystar,noise,a,b,maxorder=100, EPS=1e-06)
print(order)
# }
Run the code above in your browser using DataLab