r语言怎么生成置信区间随机数