summary.ProjectiveDecomposition:

Usage Arguments Examples

Usage

1
summary.ProjectiveDecomposition(object, ..., digits = max(3L, getOption("digits") - 3L))

Arguments

object
...
digits

Examples

 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("... ")
    }
  }

maxbox51/ProjDecomp documentation built on May 29, 2019, 4:41 a.m.