用小于符号减少

Question

我从不认为使用,Reduce但我有一个问题,我认为这将是好事.我想确保向量的每个迭代元素的大小等于或大于前一个元素.我可以这样做,sapply但我的尝试Reduce失败了.我怎么用这个Reduce？

#This works
y <- c(1,2,3,2,4,4)
sapply(seq_along(y)[-length(y)], function(i) y[i] <= y[i+1])

#attempts
Reduce('<', c(1,2,3,2,4,4)), accumulate = TRUE)
Reduce('<', c(1,2,3,2,4,4)))

Answer 1

这个diff()函数在这里是一个合乎逻辑的选择(其他人已经很好地解释了为什么Reduce()不合适).它已经设置为比较矢量元素之间的差异并且已经过矢量化.

> !diff(y) < 0
[1]  TRUE  TRUE FALSE  TRUE  TRUE