Diversity prediction theorem: Difference between revisions
Content added Content deleted
ReeceGoding (talk | contribs) m (→{{header|R}}) |
ReeceGoding (talk | contribs) m (→{{header|R}}) |
||
Line 1,184: | Line 1,184: | ||
collectivePrediction<-mean(estimates) |
collectivePrediction<-mean(estimates) |
||
data.frame("True Value" = trueValue, |
data.frame("True Value" = trueValue, |
||
as.list(setNames(estimates, |
as.list(setNames(estimates, paste("Guess", seq_along(estimates)))), #Guesses, each with a title and column. |
||
"Average Error" = mean((trueValue-estimates)^2), |
"Average Error" = mean((trueValue-estimates)^2), |
||
"Crowd Error" = (trueValue-collectivePrediction)^2, |
"Crowd Error" = (trueValue-collectivePrediction)^2, |