風速についての2つのモデルを比べる
風速データをRayleighモデルと極値モデルにフィットさせ，視覚的にフィットとデータをカーネル密度推定値と比べ，定性的に経験的変位値とフィットした変位値を比べる．
maxWinds = WeatherData["Boston", "MaxWindSpeed", {{1950, 1, 1}, {2009, 12, 31}, "Month"}]["Values"][[All, 1]];rdist = EstimatedDistribution[maxWinds, RayleighDistribution[θ]];
evdist = EstimatedDistribution[maxWinds, ExtremeValueDistribution[a, b]];GraphicsGrid[{Table[Show[Histogram[maxWinds, Automatic, "PDF", PlotRange -> {{0, 140}, All}, ChartStyle -> "Aquamarine"], Plot[PDF[i, x], {x, 0, 140}, PlotRange -> {0, .045}, PlotStyle -> {Blend[{Blue, Black}], Thick}], SmoothHistogram[maxWinds, PlotStyle -> {Blend[{Black, Purple}], Thick}, FillingStyle -> Directive[Opacity[.5], ColorData[1, 2]]], PlotLabel -> Style[StringDrop[ToString[Head[i]], -12], FontFamily -> "Verdana"], Axes -> {True, False}], {i, {rdist, evdist}}], Table[QuantilePlot[maxWinds, i, PlotStyle -> {Blend[{Blue, Black}], Thick}], {i, {rdist, evdist}}]}]