##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (){invisible(ifelse(is.null(options()$error),options(error=utils::recover),options(error=NULL)))}