我在R中有两个长双打,叫做m和n,它们由各种数字组成:
(function() {
'use strict';
function wait(ms){
var start = new Date().getTime();
var end = start;
while(end < start + ms) {
end = new Date().getTime();
}
}
window.onbeforeunload = function (){
return "Leaving page...";
}
$(document).ready(function() {
document.getElementById("username").value = "userValue";
document.getElementById("password").value = "passwordValue";
wait(3000);
document.getElementsByClassName("btn-large").click();
});
})();
我正在尝试计算m中每个条目之前的条目数,加上1。
例如,n中的第一个条目是13.在m中,有4个数字3,5,8,12,在13之前,所以我希望程序返回5.对于14,结果应该是返回也是5.对于52,在52之前的m中有15个数字,所以我希望程序返回16。
谢谢!
答案 0 :(得分:2)
m<-c(3,5,8,12,15,19,21,23,26,33,37,42,45,47,51,54,58,60)
n<-c(13,14,52,53,56,57)
sapply(n,function(x){sum(m<x)+1})
结果:
[1] 5 5 16 16 17 17
答案 1 :(得分:2)
我们可以使用findInterval
findInterval(n, m) + 1
#[1] 5 5 16 16 17 17
答案 2 :(得分:0)
cut(n,m,2:length(m))
[1] 5 5 16 16 17 17
Levels: 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
as.numeric(cut(n,m,2:length(m)))+1
[1] 5 5 16 16 17 17
as.numeric(as.character(cut(n,m,2:length(m))))
[1] 5 5 16 16 17 17