R/print.R

In danilinares/quickpsy: Fits Psychometric Functions for Multiple Groups

#' Print quickpsy objects
#' @param x A quickpsy object.
#' @param ... Other arguments
#' @export
print.quickpsy <- function(x, ...)
{
  cat("par\n")
  print(x$par)
  if ("thresholds" %in% names(x)) {
    cat("thresholds\n")
    print(x$thresholds)
  }
}