##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (n){x<-ramp(seq.int(0,1,length.out=n))rgb(x[,1L],x[,2L],x[,3L],maxColorValue=255)}