R/recommend_attribute.R

In neuroimaginador/fcaR: Formal Concept Analysis

.recommend_attribute <- function(S, LHS, RHS,
                                 attribute_filter,
                                 attributes) {

  # Compute closure
  S <- .compute_closure(S, LHS, RHS,
                        attributes = attributes)

  # Which attributes are seeked
  idx <- match(attribute_filter, attributes)

  # Return the recommendation for those attributes
  rec <- S$closure[idx]
  names(rec) <- attribute_filter

  return(rec)

}