我运行我的脚本一次，首先我根据随机函数获得一个矩阵mat_temp，如下所示：
Time Measurement
22:35:00 0
22:40:00 0
22:45:00 0
22:50:00 0
22:55:00 0
23:00:00 0
23:05:00 0
23:10:00 0.11
23:15:00 0.28
23:20:00 0
23:25:00 0.22
23:30:00 0.08
23:35:00 0.08
23:40:00 0
23:45:00 0.11
23:50:00 0.06
23:55:00 0.23
然后我得到
的结果(1). sum = 1.17
(2). n_wet = 8 (measurement > 0)
(3). n_dry = 9 (measurement == 0)
(4). intensity = 0.15
如果我运行脚本，mat_temp中的数据和相应的结果每次都会更改。我想运行它100次并平均结果。我找到了可能的解决方案，如：
lapply(1:100,function(n)source("my_script.R"))
我测试了两次，结果如下，其中两个值：2.128558和2.160195只是intensity的结果。其他人没有结果：sum，n_wet和n_dry
> lapply(1:2,function(n)source("my_script.R"))
[[1]]
[[1]]$value
[1] 2.128558
[[1]]$visible
[1] FALSE
[[2]]
[[2]]$value
[1] 2.160195
[[2]]$visible
[1] FALSE
你能解释一下为什么它只提供一个结果吗？如何在我运行脚本100次之后设法平均结果？