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