# NOT RUN {
data(elind)
x1 <- do3Scale(elind, center=TRUE, scale=TRUE)
cp <- Parafac(x1, ncomp=3, orth="A")
cp$B
cp1 <- do3Postprocess(cp, reflectB=-1) # change the sign of all components of B
cp$B
weights(cp1)
coordinates(cp1)
coordinates(cp1, type="principal")
# }
Run the code above in your browser using DataLab