X-Git-Url: https://mattmccutchen.net/match/match.git/blobdiff_plain/05a6f0edaacc70ab373988ec4bafdf9963551004..7b8c0e4e53d51ee1d3207493738ee9a36e7181d8:/program/PMInstanceGenerator.hs

diff --git a/program/PMInstanceGenerator.hs b/program/PMInstanceGenerator.hs
index 1143f61..97a546a 100644
--- a/program/PMInstanceGenerator.hs
+++ b/program/PMInstanceGenerator.hs
@@ -14,8 +14,10 @@ data ReviewerInfo = ReviewerInfo {
 }
 
 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."