Along the same lines as VLC's suggestion:
Using
data = RandomVariate[PearsonDistribution[4, 5, 3, 2, 10], 10000];
ordering1 = RandomSample@Range@7
(* {3, 2, 5, 4, 6, 7, 1} *)
ordering2 = RandomSample@Range@7
(* {3, 1, 2, 5, 4, 7, 6} *)
and
i = 1;
pearsonType = ordering1[[i]];
While[(Quiet@
DistributionParameterAssumptions[
EstimatedDistribution[data,
PearsonDistribution[pearsonType, a1, a0, b2, b1, b0],
ParameterEstimator -> "MethodOfMoments"]] =!= True),
pearsonType = ordering1[[i]]; i++];
EstimatedDistribution[data,
PearsonDistribution[pearsonType, a1, a0, b2, b1, b0],
ParameterEstimator -> "MethodOfMoments"]
gives
PearsonDistribution[5, 3.960577237166583`, 5.1789544794566986`*^11,1.`, 5.123787720579541`*^11, 6.563300151390422`*^22]
For the same data, you get
PearsonDistribution[1, 0.17852976914824442`, 4.083885578478384`*^12, 1.`, 4.084324691133497`*^12, -9.944999191995846`*^20]
if you use ordering2 instead of ordering1.