##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (h,k=500){n<-10000c<-5000gam0<-min((n-c)/n,(1-(1-0.2^(1/k))^(1/h)))*100print(gam0)}