weibull_dispersion_function function

Estimate Weibull Dispersion for Accelerated Failure Time Model