##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (m,crit,alpha=0.05){x<-m[,1]y<-m[,2]val<-abs(alpha-lband.fun(x,y,crit))val}