##---- 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,pts=x,zloc=median,zscale=mad){res=1/(1+zdepth(x,pts,zloc,zscale))res}