r-将矢量与标量进行比较

Question

我正试图编写一个函数，根据工作中定义的一些参数来比较两个矩阵或列表。第一个函数检查x是否遵守差分约束，第二个函数检查是答案，如果比第二个好。由于函数is_sol_feasible在我运行该函数时返回向量，所以我收到了以下警告消息：条件的长度>1，并且只有第一个元素将被使用

所以我想知道你们中是否有人能帮我？提前感谢！！！

'''
is_sol_feasible <- function(x) {
sat_c1(x) & sat_c2(x) & sat_c3(x) 
}
is_sol_x_better_than_y <- function(x,y) {
sol_x_better = FALSE
if (!is_sol_feasible(x)){
sol_x_better = FALSE
} else if (is_sol_feasible(x) & !is_sol_feasible(y)){
sol_x_better = TRUE
'    # il s'agit de choisir la solution minimale'
} else if (f(x) < f(y)) {
sol_x_better = TRUE
}
sol_x_better
}
'''

Answer 1

几个小时前，我对一段代码很感兴趣，正在搜索如何使用if函数将标量与向量进行比较。在多次反射之后，我找到了使用"；任何"；在我的代码中。

'''
is_sol_x_better_than_y <- function(x,y) {
sol_x_better = FALSE
if (any(!is_sol_feasible(x))){
sol_x_better = FALSE
} else if (any(is_sol_feasible(x) & !is_sol_feasible(y))){
sol_x_better = TRUE
'   # il s'agit de choisir la solution minimale'
} else if (f(x) < f(y)) {
sol_x_better = TRUE
}
sol_x_better
}
'''