##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (){library(curl)uber=readRDS(gzcon(curl("https://www.dropbox.com/s/dz2jbuckmsnzzsn/uber?dl=1")))}