R/upperpar.R

In psychotools: Psychometric Modeling Infrastructure

Defines functions vcov.upperpar coef.upperpar print.upperpar upperpar

Documented in coef.upperpar print.upperpar upperpar vcov.upperpar

upperpar <- function(object, ...) UseMethod("upperpar")

print.upperpar <- function(x, digits = max(3, getOption("digits") - 3),
  ...)
{
  cat("Item response upper asymptote parameters (", attr(x, "model"),
    "):\n", sep = "")
  print(coef(x), digits = digits, ...)
  invisible(x)
}

coef.upperpar <- function(object, ...) {
  lbs <- names(object)
  object <- as.vector(object)
  names(object) <- lbs
  return(object)
}

vcov.upperpar <- function(object, ...) {
  attr(object, "vcov")
}

Try the psychotools package in your browser