X-Git-Url: https://mattmccutchen.net/match/match.git/blobdiff_plain/eb6c3c9f810799e3bfe8cd302dd9d00f97b4baf7..89b7fd0dac0bef62999e7448fce184c19fe5bc6b:/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."