Diversity prediction theorem: Difference between revisions
Content added Content deleted
m (Updated description and link for Fōrmulæ solution) |
|||
Line 812: | Line 812: | ||
crowd-error: 4 |
crowd-error: 4 |
||
diversity: 10.5</pre> |
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}}== |
=={{header|Nim}}== |