Графика и визуализация

Построение графика квантиль-квантиль для сопоставления с параметрическим семейством распределений 

In[1]:=

X data = RandomReal[UniformDistribution[{1, 2}], 25];

In[2]:=

X Column[MapThread[ QuantilePlot[data, # /. HoldForm -> Identity, Filling -> Automatic, ImageSize -> 550, PlotLabel -> Style[#, FontSize -> 13], FillingStyle -> Directive[Thick, Lighter[#2, 0.5]], ReferenceLineStyle -> Directive[Dotted, Thick, Lighter[#2, 0.5]], PlotStyle -> Directive[PointSize[Large], #2], Method -> {"ReferenceLineMethod" -> "Reference"}, BaseStyle -> {FontFamily -> "Helvetica"}, LabelStyle -> {Bold}] &, {{WeibullDistribution[a, b], EstimatedDistribution[data, WeibullDistribution[a, b]]}, ColorData[5] /@ {6, 10}}]]

Out[2]=