##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (data,x,y,corfun=wincor){rv=corfun(x[data,1],y[data])$corrv[2]=corfun(x[data,2],y[data])$corrv}