-randomReviewerInfo numProps = do
- expns <- indRandomArray (0, numTopics-1) $
- withProb [(0.15, return 2), (0.4, return 1)] (return 0)
+randomReviewerInfo cfg numProps = do
+ -- "Older" reviewers are more likely to be expert on topics.
+ age <- mrandomR (0.5, 1.0)
+ expns <- indRandomArray (0, numTopics cfg - 1) $
+ withProb [(0.15 * age, return 2), (0.4 * age, return 1)] (return 0)