R/concepts_to_matrix.R

In neuroimaginador/fcaR: Formal Concept Analysis

.matrix_to_concepts <- function(M_ext, M_int,
                               objects, attributes) {

  n_concepts <- ncol(M_ext)
  L <- list()

  for (i in seq(n_concepts)) {

    x <- .extract_column(M_ext, i)

    s <- .extract_column(M_int, i)

    extent <- Set$new(attributes = objects,
                             M = x)
    intent <- Set$new(attributes = attributes,
                             M = s)

    L[[i]] <- Concept$new(extent = extent,
                                 intent = intent)

  }

  return(L)

}