ThreeWay (version 1.1.3)

T1: Interactive Tucker1 analysis

Description

Detects the underlying structure of a three-way array according to the Tucker1 (T1) model.

Usage

T1(dati, laba, labb, labc)

Arguments

dati

Array of order n by m by p or matrix or data.frame of order (n x mp) containing the matricized array (frontal slices)

laba

Optional vector of length n containing the labels of the A-mode entities

labb

Optional vector of length m containing the labels of the B-mode entities

labc

Optional vector of length p containing the labels of the C-mode entities

Value

A list including the following components:

A

Component matrix for the A-mode

B

Component matrix for the B-mode

C

Component matrix for the C-mode

core

Matricized core array (frontal slices)

fit

Fit value expressed as a percentage

fitA

Fit contributions for the A-mode entities (see T3fitpartitioning)

fitB

Fit contributions for the B-mode entities (see T3fitpartitioning)

fitC

Fit contributions for the C-mode entities (see T3fitpartitioning)

laba

Vector of length n containing the labels of the A-mode entities

labb

Vector of length m containing the labels of the B-mode entities

labc

Vector of length P containing the labels of the C-mode entities

Xprep

Matrix of order (n x mp) containing the matricized array (frontal slices) after preprocessing used for the analysis

References

P. Giordani, H.A.L. Kiers, M.A. Del Ferraro (2014). Three-way component analysis using the R package ThreeWay. Journal of Statistical Software 57(7):1--23. http://www.jstatsoft.org/v57/i07/. P.M. Kroonenberg (2008). Applied Multiway Data Analysis. Wiley, New Jersey. L.R Tucker (1966). Some mathematical notes on three-mode factor analysis. Psychometrika 31:279--311.

See Also

CP,T3,T2

Examples

data(Bus)
# labels for Bus data
laba <- rownames(Bus)
labb <- substr(colnames(Bus)[1:5],1,1)
labc <- substr(colnames(Bus)[seq(1,ncol(Bus),5)],3,8)
## Not run: 
# # interactive T1 analysis
# BusT1 <- T1(Bus, laba, labb, labc)
# # interactive T1 analysis (when labels are not available)
# BusT1 <- T1(Bus)
# ## End(Not run)