A parameter estimation routine for the vitality-based survival model