R/is.complete.R

In pimdevel: Probabilistic Index Models

#' Check whether a pim environment is complete
#' 
#' Objects of class \code{\link{pim.environment}} can be created with
#' or without a poset. To check whether an object has a poset included,
#' you use the function \code{is.complete}
#' 
#' @section Note:
#' This function is not written as an S4 method. Might be rewritten
#' to S4 later on.
#' 
#' @param x an object of class \code{\link{pim.environment}}
#' 
#' @return a single value TRUE or FALSE
#' 
#' @export
is.complete <- function(x){
  if(inherits(x,'pim.environment')){
    x@is.complete
  } else {
    stop('x needs to be a pim.environment') 
  }
}