如何在R中将仿真重复固定次数?