}
randomReviewerInfo numProps = do
+ -- "Older" reviewers are more likely to be expert on topics.
+ age <- mrandomR (0.5, 1.0)
expns <- indRandomArray (0, numTopics-1) $
- withProb [(0.15, return 2), (0.4, return 1)] (return 0)
+ withProb [(0.15 * age, return 2), (0.4 * age, return 1)] (return 0)
-- Samir: "Its often the case that each reviewer has a COI with say
-- one proposal submitted either by their University (different faculty)
-- or by a recent co-author."