Diversity prediction theorem: Difference between revisions
→{{header|Nim}}
m (Updated description and link for Fōrmulæ solution) |
|||
Line 812:
crowd-error: 4
diversity: 10.5</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>ClearAll[DiversityPredictionTheorem]
DiversityPredictionTheorem[trueval_?NumericQ, estimates_List] :=
Module[{avg, avgerr, crowderr, diversity},
avg = Mean[estimates];
avgerr = Mean[(estimates - trueval)^2];
crowderr = (trueval - avg)^2;
diversity = Mean[(estimates - avg)^2];
<|
"TrueValue" -> trueval,
"CrowdEstimates" -> estimates,
"AverageError" -> avgerr,
"CrowdError" -> crowderr,
"Diversity" -> diversity
|>
]
DiversityPredictionTheorem[49, {48, 47, 51}] // Dataset
DiversityPredictionTheorem[49, {48, 47, 51, 42}] // Dataset</lang>
{{out}}
<pre>TrueValue 49
CrowdEstimates {48,47,51}
AverageError 3
CrowdError 1/9
Diversity 26/9
TrueValue 49
CrowdEstimates {48,47,51,42}
AverageError 29/2
CrowdError 4
Diversity 21/2</pre>
=={{header|Nim}}==
| |||