R/is.fzn.R

In rbensua/fuzzyr: Fuzzy numbers

#' @title Fuzzy number check
#'
#' @description Checks whether an R object is an \code{fzn} or not.
#'
#' @usage is.fzn(x)
#'
#' @param x Any \bold{R} object.
#'
#' @return Returns \code{TRUE} if its argument is an \code{fzn} number (that is, it has "fzn"
#'   amongst its classes) and \code{FALSE} otherwise.
#'
#' @export


is.fzn <- function(x) {
  inherits(x, "fzn")
}