1 | summary.ProjectiveDecomposition(object, ..., digits = max(3L, getOption("digits") - 3L))
|
object |
|
... |
|
digits |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (object, ..., digits = max(3L, getOption("digits") -
3L))
{
m <- length(object$row.factor)
n <- length(object$col.factor)
k <- 5
cat("(", paste(m, "x", n), ")", " scalar ", paste(signif(object$scalar,
digits)), " precision ", paste(signif(object$precision,
digits)), ", ", paste(object$iterations), "iterations\nrows: ")
if (m <= k) {
cat(paste(signif(object$row.factor, digits)))
}
else {
cat(paste(signif(object$row.factor[1:k], digits)))
cat(" ...")
}
cat("\ncols: ")
if (n <= k) {
cat(paste(signif(object$col.factor, digits)))
}
else {
cat(paste(signif(object$col.factor[1:k], digits)))
cat("... ")
}
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.