R/S3-MeasErrorRandom.R

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

#' @export
print.MeasErrorRandom <- function(x, ...) {
  cat("\nCall:\n", deparse(attributes(x)$call), "\n", sep = "")
  cat(
    "\nThe error-prone variable",
    deparse((attr(x, 'input')$substitute)),
    "is assumed measured with random measurement error with variance",
    x$variance
  )
  invisible(x)
}