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}}]}]