##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (vec){x<-vec*(-1)index<-order(x)return(list(sortedvector=rev(sort(vec)),index=index))}