R/S3-MeasError.R

In LindaNab/mecor: Measurement Error Correction in Linear Models with a Continuous Outcome

#' @export
print.MeasError <- function(x, ...) {
  cat("\nCall:\n", deparse(attributes(x)$call), "\n", sep = "")
  if (is.null(x$replicate) & is.null(x$differential)) {
    cat("\nThe error-prone variable",
        deparse((attr(x, 'input')$substitute)),
        "is correctly measured by",
        deparse((attr(x, 'input')$reference)))
  } else if (!is.null(x$replicate)) {
    cat(
      "\nThe error-prone variable ",
      deparse((attr(x, 'input')$substitute)),
      " has replicate measures ",
      deparse((attr(x, 'input')$replicate)),
      " with classical measurement error",
      sep = ""
    )
  } else if (!is.null(x$differential)) {
    cat(
      "\nThe error-prone variable ",
      deparse((attr(x, 'input')$substitute)),
      " is correctly measured by ",
      deparse((attr(x, 'input')$reference)),
      ", given ",
      deparse((attr(x, 'input')$differential)),
      sep = ""
    )
  }
  invisible(x)
}