##---- 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,by,...){ret<-list()for (nninnames(x)){ret[[nn]]<-fill(x[[nn]],by)}as.data.frame(ret)}