如何在R中生成四舍五入到小数点后四位的随机样本?