# NOT RUN {
data(SimData) ##loads simulated X: 100 x 15 x 20 and Y: 100 x 5 x 10
Results <- rrr(X,Y,R=2) ##Fit rank 2 model with no regularization
Y_pred <- ctprod(X,Results$B,2) ##Array of fitted values
# }
Run the code above in your browser using DataLab