時間の経過とともにイベント(この場合は反乱)の有無を示すベクトルがあり、イベントの開始を示す別のベクトルを作成したいと思います。
occurrence <- c(1, 1, 0, 0, 1, 0, 0, 1, 1, 1)
onset <- c(0, 0, 0, 0, 1, 0, 0, 1, 0, 0)
次のループは私が必要なものを取得します:
answer <- 0
for (t in 2:length(occurrence) {
answer[t] <- ifelse((occurrence[t]-occurrence[t-1])==1, 1, 0)
}
> answer
[1] 0 0 0 0 1 0 0 1 0 0
これを行う簡単な方法はありますか?
ありがとう。