##---- 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,G){if (N<=0|G<=0){dg<-0}else{dg<-sqrt((G*4)/(pi*N))*100}return(dg)}