确定是否每个向量元素超过以前所有元件

Question

我需要与所有先前的元素i-1,i-2,...比较元件i，并且如果i > i-1, i-2, ...返回1，否则返回0。

data <- c(10.3,14.3,7.7,15.8,14.4,16.7,15.3,20.2,17.1,7.7,15.3,16.3,19.9,14.4,18.7,20.7) 

比较应该是以下的结果。

0 1 0 1 0 1 0 1 0 0 0 0 0 0 0 1 

Answer 1

这里有一个标准的方法：

as.integer(cummax(data) == data) 

的第一个元素的值是1这里，而不是OP的首选0，但很容易调整。