CB.GetFitParm Example

This example selects a range of data in column D and then calls CB.Fit to fit a triangular distribution to the range of data, printing the results of each possible test to the worksheet (next to the original data) in cells E4 to E7. After the fit, it uses CB.GetFitParm to put the Minimum, Likeliest, and Maximum parameters in cells E8, E9, and E10.

CB.SetFitRange Range("D4:D104")
For i = 1 to 4
   Range("E3").Offset(i).Value = CB.Fit(cbDfaTriangular, i)
Next i
For j = 1 to 3
   Range("E7").Offset(j).Value = CB.GetFitParm(j)
Next j