New in Wolfram
Mathematica
8: Estimación y prueba de parámetros
◄
previous
|
next
►
Algoritmos de núcleo
Compare dos modelos de velocidad de vientos
Ajuste datos de velocidad del viento a modelos de valores Rayleigh y extremos, compare visualmente ajustes y datos con estimaciones de densidad de kernel, y compare cualitativamente los cuantiles empíricos y ajustados.
In[1]:=
X
maxWinds = WeatherData["Boston", "MaxWindSpeed", {{1950, 1, 1}, {2009, 12, 31}, "Month"}][[ All, -1]];
In[2]:=
X
rdist = EstimatedDistribution[maxWinds, RayleighDistribution[\[Theta]]]; evdist = EstimatedDistribution[maxWinds, ExtremeValueDistribution[a, b]];
In[3]:=
X
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}}]}]
Out[3]=