R/is.R

Defines functions is.mads is.passive is.mitml.result is.mipo is.mira is.mids

Documented in is.mads is.mids is.mipo is.mira is.mitml.result

#' Check for \code{mids} object
#'
#' @aliases is.mids
#' @param x An object
#' @return A logical indicating whether \code{x} is an object of class \code{mids}
#' @export
is.mids <- function(x) {
  inherits(x, "mids")
}

#' Check for \code{mira} object
#'
#' @aliases is.mira
#' @param x An object
#' @return A logical indicating whether \code{x} is an object of class \code{mira}
#' @export
is.mira <- function(x) {
  inherits(x, "mira")
}


#' Check for \code{mipo} object
#'
#' @aliases is.mipo
#' @param x An object
#' @return A logical indicating whether \code{x} is an object of class \code{mipo}
#' @export
is.mipo <- function(x) {
  inherits(x, "mipo")
}


#' Check for \code{mitml.result} object
#'
#' @aliases is.mitml.result
#' @param x An object
#' @return A logical indicating whether \code{x} is an object of class \code{mitml.result}
#' @export
is.mitml.result <- function(x) {
  inherits(x, "mitml.result")
}


is.passive <- function(string) {
  "~" == substring(string, 1, 1)
}


#' Check for \code{mads} object
#'
#' @aliases is.mads
#' @param x An object
#' @return A logical indicating whether \code{x} is an object of class \code{mads}
#' @export
is.mads <- function(x) {
  inherits(x, "mads")
}

Try the mice package in your browser

Any scripts or data that you put into this service are public.

mice documentation built on June 7, 2023, 5:38 p.m.