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)

}

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.