##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (isubx,x,y){xx<-x[isubx]yy<-y[isubx]group<-disker(xx,yy,x,op=2)$zhatgroup}