R/is.deadata.R

In rbensua/deaR: Conventional and Fuzzy Data Envelopment Analysis

#' @title deadata class check.
#'   
#' @description Checks whether an R object is of deadata class or not.
#' @usage is.deadata(x)
#' 
#' @param x Any \bold{R} object.
#' @return Returns \code{TRUE} if its argument is a deadata object (that is, has "deadata" 
#'   amongst its classes) and \code{FALSE} otherwise.
#'   
#' @author 
#' \strong{Vicente Coll-Serrano} (\email{vicente.coll@@uv.es}).
#' \emph{Quantitative Methods for Measuring Culture (MC2). Applied Economics.}
#' 
#' \strong{Vicente Bolós} (\email{vicente.bolos@@uv.es}).
#' \emph{Department of Business Mathematics}
#'
#' \strong{Rafael Benítez} (\email{rafael.suarez@@uv.es}).
#' \emph{Department of Business Mathematics}
#'
#' University of Valencia (Spain)
#'    
#' @export


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