##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (mu,var){alpha<-((1-mu)/var-1/mu)*mu^2beta<-alpha*(1/mu-1)list(r=alpha,s=beta)}