data(Kinship)
## The labels are in the data array
laba <- dimnames(Kinship)[[1]]
labb <- dimnames(Kinship)[[2]]
labc <- dimnames(Kinship)[[3]]
## Candecomp/Parafac analysis
if (FALSE) {
CP(Kinship,laba,labb,labc)
}
Run the code above in your browser using DataLab