##---- 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,ll){nams<-names(ll)for (iiinseq_along(ll)){x[[nams[ii]]]<-ll[[ii]]}x}