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