R/print.smacofP.R

In smacofx: Flexible Multidimensional Scaling and 'smacof' Extensions

#'@export
print.smacofP <- function(x,...)
{
    cat("\nCall:\n")
    print(x$call)
    cat("\n")
    cat("Model:", x$type, x$model, "with parameter vector=",unlist(x$parameters),"\n")
    cat("Number of objects:", x$nobj, "\n")
    cat("Stress-1 value:", round(x$stress, 3), "\n")
    cat("Number of iterations:", x$niter, "\n")
    cat("\n")
}