## Generate one PARAFAC data set (nsim=1) with R=2 components (nf=2) and dimensions
## 50x10x10. Apply 0.15 homoscedastic noise and 0.10 heteroscedastic noise, apply
## collinearity with congruence factor 0.5 to all modes. Add 20% bad leverage points.
library(rrcov3way)
xdat <- cp_gen(I=50, J=100, K=10, nsim=1, nf=2,
noise=0.15, noise1=0.10, Acol=TRUE, Bcol=TRUE, Ccol=TRUE,
congA=0.5, congB=0.5, congC=0.5,
eps=0.2, type="bl")
names(xdat)
Run the code above in your browser using DataLab