##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (isub,x,y,regfun,...){xmat<-x[isub,]yy<-y[isub]regboot<-regfun(xmat,y[isub])$coefregboot}