R/check_many_valued.R

Defines functions error_many_valued check_many_valued

check_many_valued <- function(I) {

  suppressWarnings({
    val <- I %>%
      as.data.frame() %>%
      unlist() %>%
      as.vector() %>%
      as.numeric()})
  # val <- I$px
  return(any(is.na(val) | val > 1 | val < 0))

}

error_many_valued <- function() {

  stop("This formal context is many-valued, and this operation needs it to be binary or fuzzy.",
       call. = FALSE)

}
neuroimaginador/fcaR documentation built on Sept. 15, 2024, 7:51 a.m.