从列表列表中减去值 希望我能正确地理解你。使用 c_k <- c(2, 4, 10, 50, 100, 500, 10000, 100000) c_flips <- lapply(c_k, function(n) replicate(1000,

从列表列表中减去值

---

希望我能正确地理解你。使用

c_k <- c(2, 4, 10, 50, 100, 500, 10000, 100000)
c_flips <- lapply(c_k, function(n) replicate(1000, sum((sample(0:1, n, replace=TRUE)))))
d_fk <- c_k/2
d_flips <- lapply(seq_along(d_fk), function(i) lapply(c_flips[i], function(v) v - d_fk[i])[1])

---

你的意思是说，

d_正好翻转了我要找的东西。谢谢
d_flips<-mapply('-',c_flips,d_fk,SIMPLIFY=FALSE)

List of 8
 $ : num [1:1000] 1 -1 0 0 -1 -1 0 -1 -1 -1 ...
 $ : num [1:1000] 0 -1 0 -1 -1 1 0 0 -2 0 ...
 $ : num [1:1000] -1 0 -3 1 -2 0 1 1 0 -3 ...
 $ : num [1:1000] 1 1 0 9 -2 6 -4 -3 5 5 ...
 $ : num [1:1000] 2 3 0 0 2 -14 -9 -7 -1 8 ...
 $ : num [1:1000] -24 10 -4 1 -15 1 5 7 0 -4 ...
 $ : num [1:1000] -27 -5 5 82 68 -9 53 -154 31 -74 ...
 $ : num [1:1000] -96 193 -171 11 -186 216 79 24 -114 -25 ...