%!demo
%! ## Compute and plot the profile likelihood for the success probability parameter
%! ## of a fitted Negative Binomial distribution
%! rand ("seed", 21);
%! data = nbinrnd(5, 0.5, 1000, 1);
%! pd_fitted = fitdist (data, "NegativeBinomial");
%! [nlogL, param] = proflik (pd_fitted, 2, "Display", "on");
%!
%! ## Use this to analyze the profile likelihood of the success probability (P),
%! ## helping to understand the uncertainty in parameter estimates.
