これは再現可能なコードです：
a <- rep(1, 20)
a[c(1, 12, 15)] <- 0
b <- which(a == 0)
set.seed(123)
d <- round(runif(17) * 100)
次の結果を得るために0sを追加したいと思います。d
[1] 0 29 79 41 88 94 5 53 89 55 46 0 96 45 0 68 57 10 90 25
に等しいインデックスを持つ各要素に s をd追加した後は、に等しいです。0b - 1
私はappend()、「後」の値を1つだけ受け入れるのを見てきました.1つ以上ではありません。
どうすればいいですか？
dこの例のような単純なランダムシーケンスではなく、かなり長い関数の出力であると想定されているため、長さを変更できないことに注意してください。