{- |
The newspaper "Sueddeutsche" asked their readers
what professions 16 persons have,
by only showing the photographies of them and three choices.
Their statistics was:
22% readers had 0 to 5 correct answers (category 0)
75% readers had 6 to 11 correct answers (category 1)
 3% readers had 12 to 16 correct answers (category 2)
Can this statistics be explained with random guessing,
or is there some information in the photographies
that the readers could utilize?
I got 6 correct answers.
-}moduleNumeric.Probability.Example.ProfessionwhereimportqualifiedNumeric.Probability.Distribution asDist-- type Probability = RationaltypeProbability =DoubletypeDist a =Dist.T Probability a correctAnswers::Dist IntcorrectAnswers =sum$replicate16$Dist.fromFreqs [(0,2),(1,1)]categories::Dist Intcategories =Dist.map (\n ->ifn <=5then0elseifn <=11then1else2)correctAnswers