Add function makeasetofsubjects in makefakedata.R and the test for the new function