R/helperFunctions.R

In jaspeir/NIJ_Tabitha: Dominance-based Rough Set Approach and the DOMLEM Algorithm

#' Function that filters a matrix and returns an object list
#' @param m a boolean matrix
#' @param objects the vector of object names
#' @return a list of vectors
#' @export
convertMatrixToList = function(m, objects) {

  map(1:nrow(m), function(r) { objects[m[r, ]] })
}

#' Function to determine whether A is a subset of B - bool vectors.
#' @param A the left operand - vector
#' @param B the right operand - vector
#' @return the boolean value of the operation
#' @export
isSubset = function(A, B) {
  stopifnot(length(A) == length(B))

  if (all(!A) && all(!B)) {
    return(TRUE)
  }

  return(all((A & B) == A))
}

#' Function to determine whether A is a subset of B - arbitrary sets.
#' @param A the left operand - vector
#' @param B the right operand - vector
#' @return the boolean value of the operation
#' @export
isSubsetArbitrary = function(A, B) {

  if (length(A) == 0 && length(B) == 0) {
    return(TRUE)
  }

  return(setequal(intersect(A, B), A))
}