Skeda:Mean estimator consistency.gif
Kërceni tek navigimi
Kërceni tek kërkimi
Nuk ka rezolucion më të madh.
Mean_estimator_consistency.gif (800 × 325 pixela, madhësia e skedës: 4,53 MB, tipi MIME: image/gif, kthyer, 250 korniza, 25 s)
Note: Due to technical limitations, thumbnails of high resolution GIF images such as this one will not be animated.
Përmbledhje
| Përshkrimi |
English: If you sample from a Cauchy distribution, the probability to get a value very far on the tails is so high that more data won't ever give you a better estimate of its mean. |
| Data | |
| Burimi | https://twitter.com/j_bertolotti/status/1303999888137613312 |
| Autori | Jacopo Bertolotti |
| Leja (Duke ripërdorur këtë skedar) |
https://twitter.com/j_bertolotti/status/1030470604418428929 |
Mathematica 12.1 code
n = 5 10^3;
data = RandomVariate[NormalDistribution[0, 10], n];
data2 = RandomVariate[CauchyDistribution[0, 10], n];
p0 = Table[
GraphicsGrid[{
{Show[
Histogram[data[[1 ;; j]], {1}, "Probability", ChartStyle -> Orange],
Plot[PDF[NormalDistribution[0, 10], x], {x, -40, 40}, PlotRange -> All, PlotStyle -> {Purple, Thick}]
, PlotRange -> {{-30, 30}, {0, 0.045}}, Axes -> False, Frame -> True, FrameLabel -> {"x", "P(x)"}, LabelStyle -> {Black, Bold}, PlotLabel -> "Normal distribution"
]
,
ListPlot[Table[Mean[data[[1 ;; i]] ], {i, 9, j}], Joined -> True, PlotRange -> {{0, n}, All}, DataRange -> j, Axes -> False, Frame -> True, FrameLabel -> {"#", "\!\(\*OverscriptBox[\(\[Mu]\), \(^\)]\)"}, LabelStyle -> {Black, Bold}, PlotStyle -> Black, Epilog -> {Purple, Thick, Dashed, Line[{{0, 0}, {n, 0}}]}]
,
ListPlot[Table[StandardDeviation[data[[1 ;; i]] ], {i, 9, j}], Joined -> True, PlotRange -> {{0, n}, All}, DataRange -> j, Axes -> False, Frame -> True, FrameLabel -> {"#", "\!\(\*OverscriptBox[\(\[Sigma]\), \(^\)]\)"}, LabelStyle -> {Black, Bold}, PlotStyle -> Black, Epilog -> {Purple, Thick, Dashed, Line[{{0, 10}, {n, 10}}]}]
}, {
Show[
Histogram[data2[[1 ;; j]], {1}, "Probability", ChartStyle -> Orange],
Plot[PDF[CauchyDistribution[0, 10], x], {x, -40, 40}, PlotRange -> All, PlotStyle -> {Purple, Thick}], PlotRange -> {{-40, 40}, {0, 0.035}}, Axes -> False, Frame -> True, FrameLabel -> {"x", "P(x)"}, LabelStyle -> {Black, Bold}, PlotLabel -> "Cauchy distribution"]
,
ListPlot[Table[Mean[data2[[1 ;; i]] ], {i, 1, j}], Joined -> True, PlotRange -> {{0, n}, All}, DataRange -> j, Axes -> False, Frame -> True, FrameLabel -> {"#", "\!\(\*OverscriptBox[\(\[Mu]\), \(^\)]\)"}, LabelStyle -> {Black, Bold}, PlotStyle -> Black, Epilog -> {Purple, Thick, Dashed, Line[{{0, 0}, {n, 0}}]}]
,
ListPlot[Table[StandardDeviation[data2[[1 ;; i]] ], {i, 2, j}], Joined -> True, PlotRange -> {{0, n}, All}, DataRange -> j, Axes -> False, Frame -> True, FrameLabel -> {"#", "\!\(\*OverscriptBox[\(\[Sigma]\), \(^\)]\)"}, LabelStyle -> {Black, Bold}, PlotStyle -> Black]
}}, ImageSize -> 800]
, {j, 10, n, 20}];
ListAnimate[p0]
Licencim
Unë, krijuesi i kësaj pune, e publikoj këtu në bazë të licensës në vijim:
 
|
Kjo skedë është bërë e mundur nën Creative Commons CC0 1.0 Universal Public Domain Dedication. |
| Personi që lidhi një punë me këtë vepër ia ka dedikuar punën public domain duke shmangur të gjitha të drejtat e tij apo të saj për punën në mbarë botën nën ligjin e të drejtës së autorit, duke përfshirë të gjitha të drejtat e lidhura dhe fqinje, deri në masën e lejuar me ligj. Ju mund ta kopjoni, modifikoni, shpërndani dhe të kryeni pune, madje edhe për qëllime komerciale, të gjitha pa kërkuar leje.
|
Historiku i skedarit
Kliko mbi një datë/orë për ta parë skedarin siç është shfaqur në atë kohë.
| Data/Ora | Miniatura | Përmasat | Përdoruesi | Koment | |
|---|---|---|---|---|---|
| e tanishme | 11 shtator 2020 10:26 | | 800 × 325 (4,53 MB) | wikimediacommons>Berto | Uploaded own work with UploadWizard |
Përdorimi i skedarit
faqe lidhet tek kjo skedë:
