##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (obj,newx,...){data=newx[,obj[["vars"]]]out=predict(obj=obj[["model"]],data=data)out}