##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (Sums){bottom<-sqrt(Sums[2])top<-1.63answer<-top/bottomreturn(answer)}