R-如何在两个向量中查找公共逻辑值

def find_common_logic_values(vector1, vector2):
    # 确保向量长度相同
    if len(vector1) != len(vector2):
        min_len = min(len(vector1), len(vector2))
        vector1 = vector1[:min_len]
        vector2 = vector2[:min_len]
    
    # 创建新的向量
    common_values = []
    
    # 遍历两个向量
    for i in range(len(vector1)):
        # 比较元素是否相等
        if vector1[i] == vector2[i]:
            common_values.append(vector1[i])
    
    return common_values

# 示例用法
vector1 = [True, False, True, False]
vector2 = [True, True, False, False]
result = find_common_logic_values(vector1, vector2)
print(result)