Add function makeasetofpanels to makefakedata.R and test for makeasetofpanels