CP(data,laba,labb,labc)n by m by p or matrix or data.frame of order (n x mp) containing the matricized array (frontal slices)n containing the labels of the A-mode entitiesm containing the labels of the B-mode entitiesp containing the labels of the C-mode entitiesA-modeB-modeC-modeCPfunc)CPfunc)CPfunc)CPfunc)A-mode entities (see CPfitpartitioning)B-mode entities (see CPfitpartitioning)C-mode entities (see CPfitpartitioning)B (see bootstrapCP)C (see bootstrapCP)bootstrapCP)A-mode (full data) from split-half analysis (see splithalfCP)A-mode (split n.1) from split-half analysis (see splithalfCP)A-mode (split n.2) from split-half analysis (see splithalfCP)B-mode (full data) from split-half analysis (see splithalfCP)B-mode (split n.1) from split-half analysis (see splithalfCP)B-mode (split n.2) from split-half analysis (see splithalfCP)C-mode (full data) from split-half analysis (see splithalfCP)C-mode (split n.1) from split-half analysis (see splithalfCP)C-mode (split n.2) from split-half analysis (see splithalfCP)A-mode from Principal Component Analysis of mean values (see pcamean)B-mode from Principal Component Analysis of mean values (see pcamean)C-mode from Principal Component Analysis of mean values (see pcamean)A-mode from Principal Component Analysis of mean values (see pcamean)B-mode from Principal Component Analysis of mean values (see pcamean)C-mode from Principal Component Analysis of mean values (see pcamean)n containing the labels of the A-mode entitiesm containing the labels of the B-mode entitiesP containing the labels of the C-mode entitiesn x mp) containing the matricized array (frontal slices) after preprocessing used for the analysisT3, T2, T1data(TV)
TVdata=TV[[1]]
labSCALE=TV[[2]]
labPROGRAM=TV[[3]]
labSTUDENT=TV[[4]]
# permutation of the modes so that the A-mode refers to students
TVdata <- permnew(TVdata, 16, 15, 30)
TVdata <- permnew(TVdata, 15, 30, 16)
## Not run:
# # interactive CP analysis
# TVcp <- CP(TVdata, labSTUDENT, labSCALE, labPROGRAM)
# # interactive CP analysis (when labels are not available)
# TVcp <- CP(TVdata)
# ## End(Not run)
Run the code above in your browser using DataLab