Maximum Likelihood Test In R