##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (xy,qval){p1=ncol(xy)p=p1-1val=qrchkv2(xy[,1:p],xy[,p1],qval=qval)val}