##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (Table,C,N){value<-Table[,1:1]^Nnvalue<-1/valuepart2<-C*nvaluereturn(part2)}