fix typos in drop.test; use null model as initial fit if small dispersion; add testthat tests