在论坛查到2014年也有人问过这个问题，我照着上面的方法却怎么也弄不对。希望能有好心人解惑
要把这个运行100次，生成100个r1,这样才能统计r1的分布情况。多谢解答
我用了
for(k in 1:10){
x[k,1]<-source("test2.r")$r1}
x}
但是这x输出的值特别奇怪
$x
[1] 1.86 2.12 2.17 2.17 2.29 2.20 2.40 2.58 2.80 2.86 2.71 2.51 2.47 2.51
[15] 2.65 2.79 2.90 3.11 3.23 3.21 3.22 3.28 3.33 3.31 3.33
工作空间我是设好了的，文件就在工作空间里。