找到最大的小元素

Question

我有指数的两份名单：

> k.start 
[1] 3 19 45 120 400 809 1001 
> k.event 
[1] 3 4 66 300 

我需要的是包含，在k.start小于或等于它的k.event，最大值每个元素的列表。期望的结果是

k.desired = c(3,3,45,120) 

所以，我试图复制该代码，除了没有一个for循环：

for (i in 1:length(k.start){ 
    k.start[max(which(k.event[i] > k.start))] 
} 

谢谢！

Answer 1

你可以使用

vapply(k.event, function(x) max(k.start[k.start <= x]), 1) 
# [1] 3 3 45 120