Seq=seq(0.1,5,0.01) # assuming 0.1<=alpha<=5, e.g. CVB=sqrt(gamma(1+2/Seq)-gamma(1+1/Seq)^2)/gamma(1+1/Seq) mns=apply(data,1,mean) cvs=apply(data,1,sd)/mns alphahat=sapply(cvs, function(x){rev(Seq[x<=CVB])[1]}) betahat=mns/gamma(1+1/alphahat)
All links active 5/15/2014. Please report missing links to