Gráficos y visualización

Cree diagramas de probabilidad con parámetros estimados de distribución 

In[1]:=

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

In[2]:=

X Column[MapThread[ ProbabilityPlot[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[37] /@ {11, 6}}]]

Out[2]=