我有大量的高频风资料。我用这个数据在一个模型中计算了大气和水之间的气体交换。我使用10天系列测量的平均风速来表示给定时间内的气体交换。由于风是10天系列的平均值,所以我想通过将错误添加到输入中来将错误应用于输出:
#fictional time series, manually created by me.
wind <- c(0,0,0,0,0,4,3,2,4,3,2,0,0,1,0,0,0,0,1,1,4,5,4,3,2,1,0,0,0,0,0)
然后,我在风矢量的平均值和sd周围创建了100个值:
df <- as.data.frame(mapply(rnorm,mean=m