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

Question

我需要将元素i与之前的所有元素进行比较i-1,i-2,...,如果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,但这很容易调整.