##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (pos,all.names=FALSE){Filter(is.function,sapply(ls(pos=pos,all.names=all.names),get,pos=pos))}