Print method for summary.nmfkc objects

Prints a formatted summary of an nmfkc model fit.

Usage

# S3 method for class 'summary.nmfkc'
print(x, digits = max(3L, getOption("digits") - 3L), ...)

Arguments

x

An object of class summary.nmfkc.

digits

Minimum number of significant digits to be used.

...

Additional arguments (currently unused).

Value

Called for its side effect (printing). Returns x invisibly.

Examples

Y <- matrix(cars$dist, nrow = 1)
A <- rbind(1, cars$speed)
result <- nmfkc(Y, A, rank = 1)
#> Y(1,50)~X(1,1)C(1,2)A(2,50)=XB(1,50)...
#> 0sec
print(summary(result))
#> 
#> Call:
#> nmfkc(Y = Y, A = A, rank = 1)
#> 
#> Dimensions: Y(1,50)~X(1,1)C(1,2)A(2,50)=XB(1,50) 
#> Rank (Q):    1 
#> Runtime:     0sec 
#> Method:      EU 
#> Iterations:  58 
#> Missing:     0 (0.0%) 
#> 
#> Statistics:
#>   Objective function:   12982 
#>   Multiple R-squared:   0.6511 
#>   Residual Std Error:   16.17 
#>   Mean Absolute Error:  12.71 
#>   ICp:                  5.559 
#> 
#> Structure Diagnostics:
#>   Basis (X) Sparsity:    0.0% (< 1e-4)
#>   Coef (B) Sparsity:     0.0% (< 1e-4)
#>   Clustering Entropy:    0 (range: 0-1, closer to 0 is better)
#>   Clustering Crispness:  1 (range: 0-1, closer to 1 is better)
#>