w*1.*(1-pow(1-1./w,abs(R)))