Может ли это работать?
pervec <- sapply(list(dp,de,up,ue),
function(a) rowSums(sapply(a, `==`, vals)))
pervec
# [,1] [,2] [,3] [,4]
# [1,] 1 1 0 0
# [2,] 0 1 1 0
# [3,] 1 0 0 1
# [4,] 1 1 1 0
# [5,] 0 0 1 0
# [6,] 2 0 0 0
ind <- xor(pervec[,1] == 1, pervec[,2] == 1) & xor(pervec[,3] == 1, pervec[,4] == 1)
ind
# [1] FALSE TRUE TRUE FALSE FALSE FALSE
vals[ind]
# [1] "b" "c"
Все методы должны быть множественными:
var d = new Date();
var h = d.getHours();
var m = d.getMinutes();
var s = d.getSeconds();
if(h == 12) {
alert(h+":"+m+":"+s+" PM");
} else {
alert(h+":"+m+":"+s+" AM");
}
Для получения дополнительной информации о методах Date: W3School