R/concepts_to_matrix.R

Defines functions .matrix_to_concepts

.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)

}

Try the fcaR package in your browser

Any scripts or data that you put into this service are public.

fcaR documentation built on June 29, 2021, 1:06 a.m.