# NOT RUN {
# Consider two attributes
attr_1 <- c(1, 1, 0)
attr_2 <- c(2, 1, 2)
# Test for a match in either attribute
sub_cri_1 <- sub_criteria(attr_1, attr_2)
eval_sub_criteria(sub_cri_1)
# Test for a match in both attributes
sub_cri_2 <- sub_criteria(attr_1, attr_2, operator = "and")
eval_sub_criteria(sub_cri_2)
# }
Run the code above in your browser using DataLab