CB.Fit Example 3

This example automatically selects distributions and ranking methods, and reports the best fit.

CB.SetFitRange ("A1:A1000")
Dim DistBestFit As Integer
Dim CritBestFit As Integer
Result = cb.Fit(cbDfaAutoSelectDist, cbDfaAutoSelectRankingMethod, False, _
DistBestFit, CritBestFit)
' Write results (the Goodness-Of-Fit stat and the best fitted distribution)
Sheet1.Cells(4, 4).Value = Result
Sheet1.Cells(5, 4).Value = DistBestFit
Sheet1.Cells(6, 4).Value = CritBestFit