我有一个向量随着时间的推移给出事件(在这种情况下为叛乱)的存在/不存在,我想创建另一个给出事件开始的向量,即:
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
有没有更简单的方法来做到这一点?
谢谢。