##---- 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){if (!is.list(x))stop("x does not have list mode")y=NULLfor (iin1:length(x))y=c(y,x[[i]])y}