Plik:Okuns law with confidence bands.svg


Plik:Okuns law with confidence bands.svg w encyklopedii

Z Wikipedii, wolnej encyklopedii Przejdź do nawigacji Przejdź do wyszukiwania Wielkość pliku podglądu PNG dla pliku SVG: 299 × 197 pikseli Inne rozdzielczości: 320 × 211 pikseli | 640 × 422 pikseli | 800 × 527 pikseli | 1024 × 675 pikseli | 1280 × 843 pikseli.

Rozmiar pierwotny ‎(Plik SVG, nominalnie 299 × 197 pikseli, rozmiar pliku: 95 KB)

Opis

Source code (Mathematica)

Refer to the File:Okuns_law_quarterly_differences.svg to see the data set used.

n = Length[unempch]; sol = FindFit[data, \[Alpha] + \[Beta] x, {\[Alpha], \[Beta]}, x] ts = Quantile[StudentTDistribution[n - 2], 0.975]; \[Alpha]h = \[Alpha] /. sol; \[Beta]h = \[Beta] /. sol; xm = Mean[unempch]; sx2 = Mean[(unempch - xm)^2]; s\[Epsilon]2 = 1/(n - 2) Total[(gdpch - \[Alpha]h - \[Beta]h unempch)^2]; s\[Beta] = Sqrt[1/n s\[Epsilon]2/sx2]; s\[Alpha] = s\[Beta] Sqrt[sx2 + xm^2]; sp = Sqrt[1/n s\[Epsilon]2 (1 + (x - xm)^2/sx2)]; Show[ ListPlot[{{{-10, 0}}, {{-10, 0}}, data}, PlotMarkers->{Automatic, Small}, PlotStyle->Hue[0.6]], Plot[ \[Alpha]h + \[Beta]h x, {x, -1.1, 1.8}, PlotStyle->{GrayLevel[0], Thick}], Plot[ {\[Alpha]h + \[Beta]h x - ts sp, \[Alpha]h + \[Beta]h x + ts sp}, {x, -1.1, 1.8}, Filling -> {1 -> {2}}, PlotStyle -> {Blue, Blue}], PlotRange -> {{-1.3, 2}, {-3, 5}}, Axes -> False, Frame -> True, FrameLabel -> {"Quarterly change in the unemployment rate (\[CapitalDelta]%)", "Quarterly change in GDP (\[CapitalDelta]%)"}, FrameStyle -> Directive[FontFamily -> "Arial"] ] 

Licencja

Historia pliku

Kliknij na datę/czas, aby zobaczyć, jak plik wyglądał w tym czasie.

Poniższa strona korzysta z tego pliku:

Globalne wykorzystanie pliku

Ten plik jest wykorzystywany także w innych projektach wiki:

Na podstawie artykułu: "Plik:Okuns law with confidence bands.svg" pochodzącego z Wikipedii
OryginałEdytujHistoria i autorzy